! This file is computer generated, please do not modify it here, but
! generate it anew with the appropiate tool! (1901)
! SEC null  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1710
      data secq   (2)   /    1.0000000 /; data sscale(2)/  0.0000000/
      data seccnD3(2)   /    0.9117922 /; data seccn (2)/  0.8943405/
      data secaiw (:,2) /                                               &
     &        5.4415160,     5.3912720,     5.2466780,     4.7462570,   &
     &        4.1122050,     3.4827990,     2.9256260,     2.4586020,   &
     &        2.0763900,     1.7660350,     1.5138980,     1.3080740,   &
     &        0.9987770,     0.7833600,     0.6286810,     0.5145050,   &
     &        0.4281480,     0.2867670,     0.2047270,     0.1187560,   &
     &        0.0772270,     0.0349350,     0.0197880              /
! SEC H2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1802
      data secq   (1)   /    0.0000000 /; data sscale(1)/  0.5000000/
      data seccnD3(1)   /    0.9117922 /; data seccn (1)/  0.8943405/
      data secaiw (:,1) /                                               &
     &        5.4415160,     5.3912720,     5.2466780,     4.7462570,   &
     &        4.1122050,     3.4827990,     2.9256260,     2.4586020,   &
     &        2.0763900,     1.7660350,     1.5138980,     1.3080740,   &
     &        0.9987770,     0.7833600,     0.6286810,     0.5145050,   &
     &        0.4281480,     0.2867670,     0.2047270,     0.1187560,   &
     &        0.0772270,     0.0349350,     0.0197880              /
! SEC C6H6  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1802
      data secq   (6)   /   -0.0187784 /; data sscale(6)/  0.1666667/
      data seccnD3(6)   /    3.1417714 /; data seccn (6)/  3.0308560/
      data secaiw (:,6) /                                               &
     &       68.5832590,    67.5115260,    64.6123080,    56.1286650,   &
     &       47.4318310,    39.9459190,    33.7814890,    28.7553020,   &
     &       24.6561470,    21.2992860,    18.5340330,    16.2406480,   &
     &       12.7133690,    10.1832050,     8.3194640,     6.9133790,   &
     &        5.8298100,     4.0106600,     2.9230920,     1.7494800,   &
     &        1.1654830,     0.5523060,     0.3242020              /
! SEC NH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1802
      data secq   (7)   /   -0.1877074 /; data sscale(7)/  1.0000000/
      data seccnD3(7)   /    2.9902643 /; data seccn (7)/  2.5786984/
      data secaiw (:,7) /                                               &
     &       13.8928580,    13.7335660,    13.2948950,    11.9342710,   &
     &       10.4022050,     8.9706190,     7.7218140,     6.6635680,   &
     &        5.7772340,     5.0371340,     4.4181730,     3.8984410,   &
     &        3.0872240,     2.4956330,     2.0539790,     1.7170460,   &
     &        1.4549570,     1.0095450,     0.7395630,     0.4445600,   &
     &        0.2961500,     0.1392520,     0.0809340              /
! SEC CO  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1802
      data secq   (8)   /   -0.0669918 /; data sscale(8)/  1.0000000/
      data seccnD3(8)   /    0.9999501 /; data seccn (8)/  0.8555886/
      data secaiw (:,8) /                                               &
     &       12.9390420,    12.8215110,    12.4887870,    11.3861750,   &
     &       10.0547130,     8.7593060,     7.6055220,     6.6166590,   &
     &        5.7823860,     5.0816990,     4.4924840,     3.9949630,   &
     &        3.2117190,     2.6333830,     2.1960400,     1.8580780,   &
     &        1.5918740,     1.1306230,     0.8437390,     0.5212300,   &
     &        0.3539970,     0.1716310,     0.1015580              /
! REF H - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,  1) /      0.00000000000000 /
      data refh    (1,  1) /      0.00000000000000 /
      data gffq    (1,  1) /      0.00000000000000 /
      data gffh    (1,  1) /      0.00000000000000 /
      data dftq    (1,  1) /      0.00000000000000 /
      data dfth    (1,  1) /      0.00000000000000 /
      data pbcq    (1,  1) /      0.00000000000000 /
      data pbch    (1,  1) /      0.00000000000000 /
      data clsq    (1,  1) /      0.00000000000000 /
      data clsh    (1,  1) /      0.00000000000000 /
      data hcount  (1,  1) /      0.00000000000000 /
      data ascale  (1,  1) /      1.00000000000000 /
      data refcovcn(1,  1) /      0.00000000000000 /
      data refcn   (1,  1) /      0.00000000000000 /
      data refsys (1,  1) /    1 /
      data alphaiw(:,1,  1) /                                            &
     &        5.0540160,     4.9668210,     4.7244390,     3.9707860,   &
     &        3.1655030,     2.4886460,     1.9670460,     1.5750840,   &
     &        1.2804290,     1.0565330,     0.8839250,     0.7488080,   &
     &        0.5550060,     0.4262920,     0.3369390,     0.2726050,   &
     &        0.2248580,     0.1483870,     0.1049920,     0.0603100,   &
     &        0.0390250,     0.0175590,     0.0099250              /
! REF H2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2,  1) /      0.00000000000000 /
      data refh    (2,  1) /      0.00000000000000 /
      data gffq    (2,  1) /      0.00000000000000 /
      data gffh    (2,  1) /      0.00000000000000 /
      data dftq    (2,  1) /      0.00000000000000 /
      data dfth    (2,  1) /      0.00000000000000 /
      data pbcq    (2,  1) /      0.00000000000000 /
      data pbch    (2,  1) /      0.00000000000000 /
      data clsq    (2,  1) /      0.00000000000000 /
      data clsh    (2,  1) /      0.00000000000000 /
      data hcount  (2,  1) /      0.00000000000000 /
      data ascale  (2,  1) /      0.50000000000000 /
      data refcovcn(2,  1) /      0.89422436546040 /
      data refcn   (2,  1) /      0.91179218222140 /
      data refsys (2,  1) /    1 /
      data alphaiw(:,2,  1) /                                            &
     &        5.4415160,     5.3912720,     5.2466780,     4.7462570,   &
     &        4.1122050,     3.4827990,     2.9256260,     2.4586020,   &
     &        2.0763900,     1.7660350,     1.5138980,     1.3080740,   &
     &        0.9987770,     0.7833600,     0.6286810,     0.5145050,   &
     &        0.4281480,     0.2867670,     0.2047270,     0.1187560,   &
     &        0.0772270,     0.0349350,     0.0197880              /
      data refn(1) / 2 /
! REF He  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,  2) /      0.00000000000000 /
      data refh    (1,  2) /      0.00000000000000 /
      data gffq    (1,  2) /      0.00000000000000 /
      data gffh    (1,  2) /      0.00000000000000 /
      data dftq    (1,  2) /      0.00000000000000 /
      data dfth    (1,  2) /      0.00000000000000 /
      data pbcq    (1,  2) /      0.00000000000000 /
      data pbch    (1,  2) /      0.00000000000000 /
      data clsq    (1,  2) /      0.00000000000000 /
      data clsh    (1,  2) /      0.00000000000000 /
      data hcount  (1,  2) /      0.00000000000000 /
      data ascale  (1,  2) /      1.00000000000000 /
      data refcovcn(1,  2) /      0.00000000000000 /
      data refcn   (1,  2) /      0.00000000000000 /
      data refsys (1,  2) /    1 /
      data alphaiw(:,1,  2) /                                            &
     &        1.4546360,     1.4502130,     1.4371400,     1.3875900,   &
     &        1.3135450,     1.2243600,     1.1286130,     1.0327800,   &
     &        0.9410580,     0.8557720,     0.7779290,     0.7077040,   &
     &        0.5886400,     0.4940120,     0.4187090,     0.3583530,   &
     &        0.3095160,     0.2223000,     0.1665090,     0.1026240,   &
     &        0.0691900,     0.0327930,     0.0189800              /
      data refn(2) / 1 /
! REF Li  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,  3) /     -0.00000000000000 /
      data refh    (1,  3) /      0.00000000000000 /
      data gffq    (1,  3) /      0.00000000000000 /
      data gffh    (1,  3) /      0.00000000000000 /
      data dftq    (1,  3) /     -0.00000000000000 /
      data dfth    (1,  3) /      0.00000000000000 /
      data pbcq    (1,  3) /     -0.00000000000000 /
      data pbch    (1,  3) /      0.00000000000000 /
      data clsq    (1,  3) /      0.00000000000000 /
      data clsh    (1,  3) /      0.00000000000000 /
      data hcount  (1,  3) /      0.00000000000000 /
      data ascale  (1,  3) /      1.00000000000000 /
      data refcovcn(1,  3) /      0.00000000000000 /
      data refcn   (1,  3) /      0.00000000000000 /
      data refsys (1,  3) /    1 /
      data alphaiw(:,1,  3) /                                            &
     &      149.6846930,   101.0937750,    51.6672830,    18.0181080,   &
     &        8.9093460,     5.3309030,     3.5697190,     2.5730730,   &
     &        1.9537540,     1.5421740,     1.2543870,     1.0449370,   &
     &        0.7658330,     0.5922860,     0.4760820,     0.3938140,   &
     &        0.3330090,     0.2345470,     0.1766850,     0.1133040,   &
     &        0.0802740,     0.0424220,     0.0264160              /
! REF LiH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2,  3) /      0.35924680179563 /
      data refh    (2,  3) /     -0.35924680179563 /
      data gffq    (2,  3) /      0.37061732228445 /
      data gffh    (2,  3) /     -0.37061732228445 /
      data dftq    (2,  3) /      0.39342500000000 /
      data dfth    (2,  3) /     -0.39345400000000 /
      data pbcq    (2,  3) /      0.35924680179563 /
      data pbch    (2,  3) /     -0.35924680179563 /
      data clsq    (2,  3) /      0.37061732228445 /
      data clsh    (2,  3) /     -0.37061732228445 /
      data hcount  (2,  3) /      1.00000000000000 /
      data ascale  (2,  3) /      1.00000000000000 /
      data refcovcn(2,  3) /      0.80196797025252 /
      data refcn   (2,  3) /      0.98647651737145 /
      data refsys (2,  3) /    1 /
      data alphaiw(:,2,  3) /                                            &
     &       27.7934790,    25.9220070,    21.8214140,    14.1717810,   &
     &        9.4824880,     6.7129090,     4.9857250,     3.8465020,   &
     &        3.0589760,     2.4932250,     2.0736610,     1.7541010,   &
     &        1.3073430,     1.0165020,     0.8161580,     0.6719100,   &
     &        0.5643080,     0.3893270,     0.2870170,     0.1768550,   &
     &        0.1211260,     0.0602840,     0.0362580              /
      data refn(3) / 2 /
! REF Be  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,  4) /     -0.00000000000000 /
      data refh    (1,  4) /      0.00000000000000 /
      data gffq    (1,  4) /      0.00000000000000 /
      data gffh    (1,  4) /      0.00000000000000 /
      data dftq    (1,  4) /     -0.00000000000000 /
      data dfth    (1,  4) /      0.00000000000000 /
      data pbcq    (1,  4) /     -0.00000000000000 /
      data pbch    (1,  4) /      0.00000000000000 /
      data clsq    (1,  4) /      0.00000000000000 /
      data clsh    (1,  4) /      0.00000000000000 /
      data hcount  (1,  4) /      0.00000000000000 /
      data ascale  (1,  4) /      1.00000000000000 /
      data refcovcn(1,  4) /      0.00000000000000 /
      data refcn   (1,  4) /      0.00000000000000 /
      data refsys (1,  4) /    1 /
      data alphaiw(:,1,  4) /                                            &
     &       42.8790460,    39.9295910,    33.1319060,    19.8584460,   &
     &       12.0562070,     7.8731240,     5.5003700,     4.0522140,   &
     &        3.1097180,     2.4633930,     2.0011630,     1.6591860,   &
     &        1.1965720,     0.9061710,     0.7119670,     0.5756820,   &
     &        0.4763260,     0.3199380,     0.2321350,     0.1411470,   &
     &        0.0965570,     0.0488560,     0.0302000              /
! REF BeH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2,  4) /      0.35318171626695 /
      data refh    (2,  4) /     -0.35318171626695 /
      data gffq    (2,  4) /      0.17355187691088 /
      data gffh    (2,  4) /     -0.17355187691088 /
      data dftq    (2,  4) /      0.16760600000000 /
      data dfth    (2,  4) /     -0.16760000000000 /
      data pbcq    (2,  4) /      0.35318171626695 /
      data pbch    (2,  4) /     -0.35318171626695 /
      data clsq    (2,  4) /      0.17355187691088 /
      data clsh    (2,  4) /     -0.17355187691088 /
      data hcount  (2,  4) /      1.00000000000000 /
      data ascale  (2,  4) /      1.00000000000000 /
      data refcovcn(2,  4) /      0.87483634146801 /
      data refcn   (2,  4) /      0.98079323297698 /
      data refsys (2,  4) /    1 /
      data alphaiw(:,2,  4) /                                            &
     &       33.9191750,    30.6229690,    25.1809150,    17.1197860,   &
     &       12.0494810,     8.7823960,     6.6233290,     5.1483500,   &
     &        4.1059930,     3.3462160,     2.7771820,     2.3408840,   &
     &        1.7276510,     1.3276250,     1.0528460,     0.8562260,   &
     &        0.7107890,     0.4781520,     0.3456310,     0.2073370,   &
     &        0.1396630,     0.0681800,     0.0409330              /
! REF BeH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3,  4) /      0.47868871445302 /
      data refh    (3,  4) /     -0.23934435722651 /
      data gffq    (3,  4) /      0.31121011558254 /
      data gffh    (3,  4) /     -0.15560505779127 /
      data dftq    (3,  4) /      0.33482500000000 /
      data dfth    (3,  4) /     -0.16740900000000 /
      data pbcq    (3,  4) /      0.47868871445302 /
      data pbch    (3,  4) /     -0.23934435722651 /
      data clsq    (3,  4) /      0.31121011558254 /
      data clsh    (3,  4) /     -0.15560505779127 /
      data hcount  (3,  4) /      2.00000000000000 /
      data ascale  (3,  4) /      1.00000000000000 /
      data refcovcn(3,  4) /      1.75692293756846 /
      data refcn   (3,  4) /      1.96965813264154 /
      data refsys (3,  4) /    1 /
      data alphaiw(:,3,  4) /                                            &
     &       20.3763510,    19.9881660,    18.9207290,    15.6997430,   &
     &       12.3941440,     9.6994520,     7.6613340,     6.1448630,   &
     &        5.0098820,     4.1485350,     3.4841730,     2.9633890,   &
     &        2.2143260,     1.7146750,     1.3662970,     1.1143890,   &
     &        0.9266450,     0.6239030,     0.4502460,     0.2684610,   &
     &        0.1795900,     0.0862930,     0.0511440              /
      data refn(4) / 3 /
! REF B - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,  5) /     -0.00000000000001 /
      data refh    (1,  5) /      0.00000000000000 /
      data gffq    (1,  5) /      0.00000000000000 /
      data gffh    (1,  5) /      0.00000000000000 /
      data dftq    (1,  5) /     -0.00000000000001 /
      data dfth    (1,  5) /      0.00000000000000 /
      data pbcq    (1,  5) /     -0.00000000000001 /
      data pbch    (1,  5) /      0.00000000000000 /
      data clsq    (1,  5) /      0.00000000000000 /
      data clsh    (1,  5) /      0.00000000000000 /
      data hcount  (1,  5) /      0.00000000000000 /
      data ascale  (1,  5) /      1.00000000000000 /
      data refcovcn(1,  5) /      0.00000000000000 /
      data refcn   (1,  5) /      0.00000000000000 /
      data refsys (1,  5) /    1 /
      data alphaiw(:,1,  5) /                                            &
     &       22.1068880,    21.3442260,    19.4317910,    14.6694210,   &
     &       10.6975470,     7.9023200,     5.9922100,     4.6684490,   &
     &        3.7269880,     3.0389440,     2.5231990,     2.1277390,   &
     &        1.5720620,     1.2095680,     0.9603270,     0.7816570,   &
     &        0.6491900,     0.4364560,     0.3146920,     0.1873730,   &
     &        0.1252700,     0.0602010,     0.0356010              /
! REF BH  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2,  5) /      0.15557155274747 /
      data refh    (2,  5) /     -0.15557155274833 /
      data gffq    (2,  5) /     -0.10464538187607 /
      data gffh    (2,  5) /      0.10464538187607 /
      data dftq    (2,  5) /      0.06722800000000 /
      data dfth    (2,  5) /     -0.06723200000000 /
      data pbcq    (2,  5) /      0.15557155274747 /
      data pbch    (2,  5) /     -0.15557155274833 /
      data clsq    (2,  5) /     -0.10464538187607 /
      data clsh    (2,  5) /      0.10464538187607 /
      data hcount  (2,  5) /      1.00000000000000 /
      data ascale  (2,  5) /      1.00000000000000 /
      data refcovcn(2,  5) /      0.93017535174568 /
      data refcn   (2,  5) /      0.97061615724771 /
      data refsys (2,  5) /    1 /
      data alphaiw(:,2,  5) /                                            &
     &       20.5521070,    19.9101690,    18.3552210,    14.5802680,   &
     &       11.3056180,     8.8165140,     6.9794390,     5.6206180,   &
     &        4.6022690,     3.8263850,     3.2251530,     2.7516720,   &
     &        2.0664510,     1.6059710,     1.2828710,     1.0479810,   &
     &        0.8721210,     0.5869300,     0.4224710,     0.2500750,   &
     &        0.1661340,     0.0788140,     0.0462310              /
! REF BH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3,  5) /      0.19433603579211 /
      data refh    (3,  5) /     -0.09716801789605 /
      data gffq    (3,  5) /     -0.20153708141000 /
      data gffh    (3,  5) /      0.10076854070500 /
      data dftq    (3,  5) /      0.10046100000000 /
      data dfth    (3,  5) /     -0.05023400000000 /
      data pbcq    (3,  5) /      0.19433603579211 /
      data pbch    (3,  5) /     -0.09716801789605 /
      data clsq    (3,  5) /     -0.20153708141000 /
      data clsh    (3,  5) /      0.10076854070500 /
      data hcount  (3,  5) /      2.00000000000000 /
      data ascale  (3,  5) /      1.00000000000000 /
      data refcovcn(3,  5) /      1.86318070483743 /
      data refcn   (3,  5) /      1.94412533738189 /
      data refsys (3,  5) /    1 /
      data alphaiw(:,3,  5) /                                            &
     &       20.2806350,    19.1635070,    17.8009360,    14.8840980,   &
     &       12.0983160,     9.7836060,     7.9569310,     6.5370310,   &
     &        5.4328530,     4.5678260,     3.8830910,     3.3348630,   &
     &        2.5273350,     1.9752950,     1.5835380,     1.2965230,   &
     &        1.0804740,     0.7281530,     0.5240250,     0.3095240,   &
     &        0.2050450,     0.0966460,     0.0564440              /
! REF BH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4,  5) /      0.24475443819757 /
      data refh    (4,  5) /     -0.08158481273252 /
      data gffq    (4,  5) /     -0.28222637549158 /
      data gffh    (4,  5) /      0.09407545849719 /
      data dftq    (4,  5) /      0.16753000000000 /
      data dfth    (4,  5) /     -0.05584833333333 /
      data pbcq    (4,  5) /      0.24475443819757 /
      data pbch    (4,  5) /     -0.08158481273252 /
      data clsq    (4,  5) /     -0.28222637549158 /
      data clsh    (4,  5) /      0.09407545849719 /
      data hcount  (4,  5) /      3.00000000000000 /
      data ascale  (4,  5) /      1.00000000000000 /
      data refcovcn(4,  5) /      2.79150308430417 /
      data refcn   (4,  5) /      2.91284702438220 /
      data refsys (4,  5) /    1 /
      data alphaiw(:,4,  5) /                                            &
     &       17.3839000,    17.1992340,    16.6725580,    14.8986510,   &
     &       12.7407520,    10.6754850,     8.8969080,     7.4349140,   &
     &        6.2546920,     5.3056760,     4.5401840,     3.9186610,   &
     &        2.9899200,     2.3464510,     1.8858730,     1.5464990,   &
     &        1.2900300,     0.8701190,     0.6260260,     0.3691130,   &
     &        0.2439620,     0.1143850,     0.0665550              /
! REF B2H6  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (5,  5) /      0.14920702094041 /
      data refh    (5,  5) /     -0.04973567364680 /
      data gffq    (5,  5) /     -0.34038820700608 /
      data gffh    (5,  5) /      0.11346273566869 /
      data dftq    (5,  5) /      0.04833100000000 /
      data dfth    (5,  5) /     -0.01613466666667 /
      data pbcq    (5,  5) /      0.14920702094041 /
      data pbch    (5,  5) /     -0.04973567364680 /
      data clsq    (5,  5) /     -0.34038820700608 /
      data clsh    (5,  5) /      0.11346273566869 /
      data hcount  (5,  5) /      6.00000000000000 /
      data ascale  (5,  5) /      0.50000000000000 /
      data refcovcn(5,  5) /      4.41327468359181 /
      data refcn   (5,  5) /      4.58564454717390 /
      data refsys (5,  5) /    1 /
      data alphaiw(:,5,  5) /                                            &
     &       33.3389310,    33.0011270,    32.0357710,    28.7639060,   &
     &       24.7422160,    20.8503600,    17.4641170,    14.6555110,   &
     &       12.3709610,    10.5223950,     9.0236300,     7.8016400,   &
     &        5.9670990,     4.6901690,     3.7733460,     3.0963780,   &
     &        2.5840490,     1.7440470,     1.2552220,     0.7404570,   &
     &        0.4896440,     0.2299100,     0.1339700              /
      data refn(5) / 5 /
! REF C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,  6) /     -0.00000000000001 /
      data refh    (1,  6) /      0.00000000000000 /
      data gffq    (1,  6) /      0.00000000000000 /
      data gffh    (1,  6) /      0.00000000000000 /
      data dftq    (1,  6) /     -0.00000000000001 /
      data dfth    (1,  6) /      0.00000000000000 /
      data pbcq    (1,  6) /     -0.00000000000001 /
      data pbch    (1,  6) /      0.00000000000000 /
      data clsq    (1,  6) /      0.00000000000000 /
      data clsh    (1,  6) /      0.00000000000000 /
      data hcount  (1,  6) /      0.00000000000000 /
      data ascale  (1,  6) /      1.00000000000000 /
      data refcovcn(1,  6) /      0.00000000000000 /
      data refcn   (1,  6) /      0.00000000000000 /
      data refsys (1,  6) /    1 /
      data alphaiw(:,1,  6) /                                            &
     &       12.3555340,    12.1386640,    11.5492610,     9.7999490,   &
     &        7.9916820,     6.4691120,     5.2715550,     4.3463700,   &
     &        3.6298580,     3.0691570,     2.6246820,     2.2676780,   &
     &        1.7384300,     1.3729830,     1.1110210,     0.9172590,   &
     &        0.7701000,     0.5269110,     0.3835030,     0.2298730,   &
     &        0.1535810,     0.0732580,     0.0431920              /
! REF CH  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2,  6) /     -0.12994792302132 /
      data refh    (2,  6) /      0.12994792302133 /
      data gffq    (2,  6) /     -0.17123705791311 /
      data gffh    (2,  6) /      0.17123705791311 /
      data dftq    (2,  6) /     -0.01475500000000 /
      data dfth    (2,  6) /      0.01475400000000 /
      data pbcq    (2,  6) /     -0.12994792302132 /
      data pbch    (2,  6) /      0.12994792302133 /
      data clsq    (2,  6) /     -0.17123705791311 /
      data clsh    (2,  6) /      0.17123705791311 /
      data hcount  (2,  6) /      1.00000000000000 /
      data ascale  (2,  6) /      1.00000000000000 /
      data refcovcn(2,  6) /      0.91894761153698 /
      data refcn   (2,  6) /      0.98678926403687 /
      data refsys (2,  6) /    1 /
      data alphaiw(:,2,  6) /                                            &
     &       14.5482810,    14.2754640,    13.3786710,    11.3492310,   &
     &        9.4185310,     7.7719120,     6.4361850,     5.3728750,   &
     &        4.5287720,     3.8553340,     3.3134960,     2.8732790,   &
     &        2.2127670,     1.7514880,     1.4184590,     1.1710210,   &
     &        0.9825780,     0.6705550,     0.4865370,     0.2899040,   &
     &        0.1927160,     0.0910580,     0.0533330              /
! REF C2H2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3,  6) /     -0.07885200893623 /
      data refh    (3,  6) /      0.07885200893624 /
      data gffq    (3,  6) /     -0.14210003554128 /
      data gffh    (3,  6) /      0.14210003554128 /
      data dftq    (3,  6) /     -0.09381500000000 /
      data dfth    (3,  6) /      0.09381750000000 /
      data pbcq    (3,  6) /     -0.07885200893623 /
      data pbch    (3,  6) /      0.07885200893624 /
      data clsq    (3,  6) /     -0.14210003554128 /
      data clsh    (3,  6) /      0.14210003554128 /
      data hcount  (3,  6) /      2.00000000000000 /
      data ascale  (3,  6) /      0.50000000000000 /
      data refcovcn(3,  6) /      1.90786062124811 /
      data refcn   (3,  6) /      1.99847658843687 /
      data refsys (3,  6) /    1 /
      data alphaiw(:,3,  6) /                                            &
     &       23.0116230,    22.7312670,    21.9447640,    19.4160980,   &
     &       16.5257670,    13.8835800,    11.6644030,     9.8566400,   &
     &        8.3954220,     7.2118160,     6.2469570,     5.4540580,   &
     &        4.2475560,     3.3914730,     2.7655050,     2.2955930,   &
     &        1.9346700,     1.3305920,     0.9701360,     0.5811850,   &
     &        0.3874320,     0.1836940,     0.1078100              /
! REF C2H4  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4,  6) /     -0.07676292659608 /
      data refh    (4,  6) /      0.03838146329804 /
      data gffq    (4,  6) /     -0.22250854670718 /
      data gffh    (4,  6) /      0.11125427335359 /
      data dftq    (4,  6) /     -0.07569600000000 /
      data dfth    (4,  6) /      0.03783500000000 /
      data pbcq    (4,  6) /     -0.07676292659608 /
      data pbch    (4,  6) /      0.03838146329804 /
      data clsq    (4,  6) /     -0.22250854670718 /
      data clsh    (4,  6) /      0.11125427335359 /
      data hcount  (4,  6) /      4.00000000000000 /
      data ascale  (4,  6) /      0.50000000000000 /
      data refcovcn(4,  6) /      2.83122393221341 /
      data refcn   (4,  6) /      2.99872598643336 /
      data refsys (4,  6) /    1 /
      data alphaiw(:,4,  6) /                                            &
     &       27.4537640,    27.0921900,    26.0934140,    23.0050050,   &
     &       19.6170750,    16.5717410,    14.0107840,    11.9057630,   &
     &       10.1859920,     8.7791490,     7.6227700,     6.6661200,   &
     &        5.2000230,     4.1529630,     3.3845150,     2.8065480,   &
     &        2.3623130,     1.6190990,     1.1765830,     0.7009620,   &
     &        0.4652560,     0.2188710,     0.1277540              /
! REF C2H6  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (5,  6) /     -0.09463126919039 /
      data refh    (5,  6) /      0.03154375639680 /
      data gffq    (5,  6) /     -0.25653918216622 /
      data gffh    (5,  6) /      0.08551306072207 /
      data dftq    (5,  6) /     -0.07884500000000 /
      data dfth    (5,  6) /      0.02627566666667 /
      data pbcq    (5,  6) /     -0.09463126919039 /
      data pbch    (5,  6) /      0.03154375639680 /
      data clsq    (5,  6) /     -0.25653918216622 /
      data clsh    (5,  6) /      0.08551306072207 /
      data hcount  (5,  6) /      6.00000000000000 /
      data ascale  (5,  6) /      0.50000000000000 /
      data refcovcn(5,  6) /      3.74870030209262 /
      data refcn   (5,  6) /      3.98439894415100 /
      data refsys (5,  6) /    1 /
      data alphaiw(:,5,  6) /                                            &
     &       28.3352760,    28.0932470,    27.3990360,    25.0151020,   &
     &       22.0076950,    18.9989890,    16.2867160,    13.9588710,   &
     &       12.0051730,    10.3795410,     9.0286370,     7.9030880,   &
     &        6.1676970,     4.9231280,     4.0083160,     3.3200870,   &
     &        2.7913060,     1.9077980,     1.3830030,     0.8207370,   &
     &        0.5431290,     0.2541200,     0.1477570              /
! REF C6H6  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (6,  6) /     -0.02858894128060 /
      data refh    (6,  6) /      0.02858894128061 /
      data gffq    (6,  6) /     -0.10441353918078 /
      data gffh    (6,  6) /      0.10441353918078 /
      data dftq    (6,  6) /     -0.03982383333333 /
      data dfth    (6,  6) /      0.03982566666667 /
      data pbcq    (6,  6) /     -0.02858894128060 /
      data pbch    (6,  6) /      0.02858894128061 /
      data clsq    (6,  6) /     -0.10441353918078 /
      data clsh    (6,  6) /      0.10441353918078 /
      data hcount  (6,  6) /      6.00000000000000 /
      data ascale  (6,  6) /      0.16666666666667 /
      data refcovcn(6,  6) /      2.91832701804388 /
      data refcn   (6,  6) /      3.14177128194115 /
      data refsys (6,  6) /    1 /
      data alphaiw(:,6,  6) /                                            &
     &       68.5832590,    67.5115260,    64.6123080,    56.1286650,   &
     &       47.4318310,    39.9459190,    33.7814890,    28.7553020,   &
     &       24.6561470,    21.2992860,    18.5340330,    16.2406480,   &
     &       12.7133690,    10.1832050,     8.3194640,     6.9133790,   &
     &        5.8298100,     4.0106600,     2.9230920,     1.7494800,   &
     &        1.1654830,     0.5523060,     0.3242020              /
! REF OC  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (7,  6) /      0.05061953301625 /
      data refh    (7,  6) /     -0.05061953301624 /
      data gffq    (7,  6) /      0.21030312699251 /
      data gffh    (7,  6) /     -0.21030312699251 /
      data dftq    (7,  6) /      0.09609600000000 /
      data dfth    (7,  6) /     -0.09609000000000 /
      data pbcq    (7,  6) /      0.05061953301625 /
      data pbch    (7,  6) /     -0.05061953301624 /
      data clsq    (7,  6) /      0.21030312699251 /
      data clsh    (7,  6) /     -0.21030312699251 /
      data hcount  (7,  6) /      1.00000000000000 /
      data ascale  (7,  6) /      1.00000000000000 /
      data refcovcn(7,  6) /      0.85560990866661 /
      data refcn   (7,  6) /      0.99995005170393 /
      data refsys (7,  6) /    2 /
      data alphaiw(:,7,  6) /                                            &
     &        7.7402500,     7.6643000,     7.4486700,     6.7286500,   &
     &        5.8533600,     5.0045500,     4.2585700,     3.6316200,   &
     &        3.1142900,     2.6894300,     2.3397600,     2.0503600,   &
     &        1.6066900,     1.2894400,     1.0561100,     0.8801010,   &
     &        0.7443600,     0.5158280,     0.3784030,     0.2287990,   &
     &        0.1535500,     0.0736385,     0.0435460              /
      data refn(6) / 7 /
! REF N - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,  7) /     -0.00000000000000 /
      data refh    (1,  7) /      0.00000000000000 /
      data gffq    (1,  7) /      0.00000000000000 /
      data gffh    (1,  7) /      0.00000000000000 /
      data dftq    (1,  7) /     -0.00000000000000 /
      data dfth    (1,  7) /      0.00000000000000 /
      data pbcq    (1,  7) /     -0.00000000000000 /
      data pbch    (1,  7) /      0.00000000000000 /
      data clsq    (1,  7) /      0.00000000000000 /
      data clsh    (1,  7) /      0.00000000000000 /
      data hcount  (1,  7) /      0.00000000000000 /
      data ascale  (1,  7) /      1.00000000000000 /
      data refcovcn(1,  7) /      0.00000000000000 /
      data refcn   (1,  7) /      0.00000000000000 /
      data refsys (1,  7) /    1 /
      data alphaiw(:,1,  7) /                                            &
     &        7.5385090,     7.4657840,     7.2592230,     6.5708420,   &
     &        5.7412090,     4.9445040,     4.2474110,     3.6605820,   &
     &        3.1734720,     2.7700380,     2.4347170,     2.1542670,   &
     &        1.7174610,     1.3984350,     1.1591760,     0.9755810,   &
     &        0.8318860,     0.5852590,     0.4337270,     0.2654650,   &
     &        0.1792040,     0.0860960,     0.0507150              /
! REF NH  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2,  7) /     -0.17975369313241 /
      data refh    (2,  7) /      0.17975369313529 /
      data gffq    (2,  7) /     -0.35298592555229 /
      data gffh    (2,  7) /      0.35298592555229 /
      data dftq    (2,  7) /     -0.09635100000000 /
      data dfth    (2,  7) /      0.09635100000000 /
      data pbcq    (2,  7) /     -0.17975369313241 /
      data pbch    (2,  7) /      0.17975369313529 /
      data clsq    (2,  7) /     -0.35298592555229 /
      data clsh    (2,  7) /      0.35298592555229 /
      data hcount  (2,  7) /      1.00000000000000 /
      data ascale  (2,  7) /      1.00000000000000 /
      data refcovcn(2,  7) /      0.85827791612782 /
      data refcn   (2,  7) /      0.99440725902444 /
      data refsys (2,  7) /    1 /
      data alphaiw(:,2,  7) /                                            &
     &        9.8340890,     9.6980440,     9.3521500,     8.3811310,   &
     &        7.3184230,     6.3183850,     5.4407240,     4.6956550,   &
     &        4.0720980,     3.5523310,     3.1184230,     2.7545880,   &
     &        2.1872670,     1.7734490,     1.4640490,     1.2275070,   &
     &        1.0430710,     0.7283800,     0.5365400,     0.3254160,   &
     &        0.2182610,     0.1038080,     0.0607780              /
! REF N2H2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3,  7) /     -0.15258555866660 /
      data refh    (3,  7) /      0.15258555866660 /
      data gffq    (3,  7) /     -0.30125788296606 /
      data gffh    (3,  7) /      0.30125788296606 /
      data dftq    (3,  7) /     -0.11128400000000 /
      data dfth    (3,  7) /      0.11128900000000 /
      data pbcq    (3,  7) /     -0.15258555866660 /
      data pbch    (3,  7) /      0.15258555866660 /
      data clsq    (3,  7) /     -0.30125788296606 /
      data clsh    (3,  7) /      0.30125788296606 /
      data hcount  (3,  7) /      2.00000000000000 /
      data ascale  (3,  7) /      0.50000000000000 /
      data refcovcn(3,  7) /      1.83985112339643 /
      data refcn   (3,  7) /      2.01427212990570 /
      data refsys (3,  7) /    1 /
      data alphaiw(:,3,  7) /                                            &
     &       18.5281530,    18.3270930,    17.7675350,    15.9940890,   &
     &       13.9674690,    12.0720960,    10.4237930,     9.0298300,   &
     &        7.8623050,     6.8857300,     6.0666250,     5.3763210,   &
     &        4.2923510,     3.4950320,     2.8948440,     2.4334700,   &
     &        2.0721210,     1.4520950,     1.0718490,     0.6513790,   &
     &        0.4372510,     0.2081480,     0.1219450              /
! REF NH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4,  7) /     -0.42898107660155 /
      data refh    (4,  7) /      0.14299369220052 /
      data gffq    (4,  7) /     -0.82429723124422 /
      data gffh    (4,  7) /      0.27476574374807 /
      data dftq    (4,  7) /     -0.29233400000000 /
      data dfth    (4,  7) /      0.09745100000000 /
      data pbcq    (4,  7) /     -0.42898107660155 /
      data pbch    (4,  7) /      0.14299369220052 /
      data clsq    (4,  7) /     -0.82429723124422 /
      data clsh    (4,  7) /      0.27476574374807 /
      data hcount  (4,  7) /      3.00000000000000 /
      data ascale  (4,  7) /      1.00000000000000 /
      data refcovcn(4,  7) /      2.58039902538908 /
      data refcn   (4,  7) /      2.99026427338514 /
      data refsys (4,  7) /    1 /
      data alphaiw(:,4,  7) /                                            &
     &       13.8928580,    13.7335660,    13.2948950,    11.9342710,   &
     &       10.4022050,     8.9706190,     7.7218140,     6.6635680,   &
     &        5.7772340,     5.0371340,     4.4181730,     3.8984410,   &
     &        3.0872240,     2.4956330,     2.0539790,     1.7170460,   &
     &        1.4549570,     1.0095450,     0.7395630,     0.4445600,   &
     &        0.2961500,     0.1392520,     0.0809340              /
! REF N2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (5,  7) /     -0.00000000000000 /
      data refh    (5,  7) /      0.00000000000000 /
      data gffq    (5,  7) /      0.00000000000000 /
      data gffh    (5,  7) /      0.00000000000000 /
      data dftq    (5,  7) /      0.00000100000000 /
      data dfth    (5,  7) /      0.00000000000000 /
      data pbcq    (5,  7) /     -0.00000000000000 /
      data pbch    (5,  7) /      0.00000000000000 /
      data clsq    (5,  7) /      0.00000000000000 /
      data clsh    (5,  7) /      0.00000000000000 /
      data hcount  (5,  7) /      0.00000000000000 /
      data ascale  (5,  7) /      0.50000000000000 /
      data refcovcn(5,  7) /      0.98085535554904 /
      data refcn   (5,  7) /      0.99998952959314 /
      data refsys (5,  7) /    1 /
      data alphaiw(:,5,  7) /                                            &
     &       11.6125430,    11.5410500,    11.3332410,    10.5895270,   &
     &        9.5886300,     8.5228410,     7.5106350,     6.6043140,   &
     &        5.8164280,     5.1406550,     4.5636850,     4.0709240,   &
     &        3.2858130,     2.6994530,     2.2527560,     1.9059510,   &
     &        1.6320270,     1.1565830,     0.8609730,     0.5294970,   &
     &        0.3582750,     0.1725840,     0.1018070              /
      data refn(7) / 5 /
! REF O - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,  8) /      0.00000000000001 /
      data refh    (1,  8) /      0.00000000000000 /
      data gffq    (1,  8) /      0.00000000000000 /
      data gffh    (1,  8) /      0.00000000000000 /
      data dftq    (1,  8) /      0.00000000000001 /
      data dfth    (1,  8) /      0.00000000000000 /
      data pbcq    (1,  8) /      0.00000000000001 /
      data pbch    (1,  8) /      0.00000000000000 /
      data clsq    (1,  8) /      0.00000000000000 /
      data clsh    (1,  8) /      0.00000000000000 /
      data hcount  (1,  8) /      0.00000000000000 /
      data ascale  (1,  8) /      1.00000000000000 /
      data refcovcn(1,  8) /      0.00000000000000 /
      data refcn   (1,  8) /      0.00000000000000 /
      data refsys (1,  8) /    1 /
      data alphaiw(:,1,  8) /                                            &
     &        5.1967090,     5.1644300,     5.0715690,     4.7484500,   &
     &        4.3273530,     3.8854260,     3.4648010,     3.0838640,   &
     &        2.7478290,     2.4553310,     2.2021600,     1.9832410,   &
     &        1.6287590,     1.3587170,     1.1492470,     0.9838790,   &
     &        0.8512370,     0.6158310,     0.4654260,     0.2921270,   &
     &        0.2001820,     0.0978590,     0.0579230              /
! REF OH  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2,  8) /     -0.33069420009667 /
      data refh    (2,  8) /      0.33069420009667 /
      data gffq    (2,  8) /     -0.35471470167212 /
      data gffh    (2,  8) /      0.35471470167212 /
      data dftq    (2,  8) /     -0.16394400000000 /
      data dfth    (2,  8) /      0.16394400000000 /
      data pbcq    (2,  8) /     -0.33069420009667 /
      data pbch    (2,  8) /      0.33069420009667 /
      data clsq    (2,  8) /     -0.35471470167212 /
      data clsh    (2,  8) /      0.35471470167212 /
      data hcount  (2,  8) /      1.00000000000000 /
      data ascale  (2,  8) /      1.00000000000000 /
      data refcovcn(2,  8) /      0.80416789582615 /
      data refcn   (2,  8) /      0.99245941779060 /
      data refsys (2,  8) /    1 /
      data alphaiw(:,2,  8) /                                            &
     &        7.2941570,     7.2356790,     7.0728280,     6.5406890,   &
     &        5.8872890,     5.2288430,     4.6198180,     4.0794700,   &
     &        3.6098730,     3.2056430,     2.8587920,     2.5610180,   &
     &        2.0831650,     1.7231230,     1.4466600,     1.2304460,   &
     &        1.0585030,     0.7570550,     0.5672680,     0.3517810,   &
     &        0.2391180,     0.1155270,     0.0679560              /
! REF OH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3,  8) /     -0.56376716745166 /
      data refh    (3,  8) /      0.28188358372583 /
      data gffq    (3,  8) /     -0.59881526060460 /
      data gffh    (3,  8) /      0.29940763030230 /
      data dftq    (3,  8) /     -0.31412100000000 /
      data dfth    (3,  8) /      0.15706300000000 /
      data pbcq    (3,  8) /     -0.56376716745166 /
      data pbch    (3,  8) /      0.28188358372583 /
      data clsq    (3,  8) /     -0.59881526060460 /
      data clsh    (3,  8) /      0.29940763030230 /
      data hcount  (3,  8) /      2.00000000000000 /
      data ascale  (3,  8) /      1.00000000000000 /
      data refcovcn(3,  8) /      1.61123940672270 /
      data refcn   (3,  8) /      1.98869274482158 /
      data refsys (3,  8) /    1 /
      data alphaiw(:,3,  8) /                                            &
     &        9.3715840,     9.2917670,     9.0663960,     8.3227770,   &
     &        7.4235050,     6.5392070,     5.7386200,     5.0398020,   &
     &        4.4396540,     3.9274640,     3.4907530,     3.1176580,   &
     &        2.5222470,     2.0764190,     1.7359450,     1.4709930,   &
     &        1.2612520,     0.8959550,     0.6678320,     0.4109820,   &
     &        0.2778660,     0.1331600,     0.0779780              /
! REF O2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4,  8) /      0.00000000000000 /
      data refh    (4,  8) /      0.00000000000000 /
      data gffq    (4,  8) /      0.00000000000000 /
      data gffh    (4,  8) /      0.00000000000000 /
      data dftq    (4,  8) /     -0.00000200000000 /
      data dfth    (4,  8) /      0.00000000000000 /
      data pbcq    (4,  8) /      0.00000000000000 /
      data pbch    (4,  8) /      0.00000000000000 /
      data clsq    (4,  8) /      0.00000000000000 /
      data clsh    (4,  8) /      0.00000000000000 /
      data hcount  (4,  8) /      0.00000000000000 /
      data ascale  (4,  8) /      0.50000000000000 /
      data refcovcn(4,  8) /      0.97984400975835 /
      data refcn   (4,  8) /      0.99856725131399 /
      data refsys (4,  8) /    1 /
      data alphaiw(:,4,  8) /                                            &
     &       10.3975870,    10.3144230,    10.0802310,     9.3150480,   &
     &        8.4027020,     7.5095120,     6.6939110,     5.9700690,   &
     &        5.3361820,     4.7845300,     4.3054570,     3.8891980,   &
     &        3.2100590,     2.6878840,     2.2798670,     1.9559530,   &
     &        1.6950280,     1.2295900,     0.9306730,     0.5848620,   &
     &        0.4008950,     0.1959850,     0.1160240              /
      data refn(8) / 4 /
! REF F - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,  9) /      0.00000000000001 /
      data refh    (1,  9) /      0.00000000000000 /
      data gffq    (1,  9) /      0.00000000000000 /
      data gffh    (1,  9) /      0.00000000000000 /
      data dftq    (1,  9) /      0.00000000000001 /
      data dfth    (1,  9) /      0.00000000000000 /
      data pbcq    (1,  9) /      0.00000000000001 /
      data pbch    (1,  9) /      0.00000000000000 /
      data clsq    (1,  9) /      0.00000000000000 /
      data clsh    (1,  9) /      0.00000000000000 /
      data hcount  (1,  9) /      0.00000000000000 /
      data ascale  (1,  9) /      1.00000000000000 /
      data refcovcn(1,  9) /      0.00000000000000 /
      data refcn   (1,  9) /      0.00000000000000 /
      data refsys (1,  9) /    1 /
      data alphaiw(:,1,  9) /                                            &
     &        3.6338390,     3.6196960,     3.5783940,     3.4279380,   &
     &        3.2173720,     2.9799290,     2.7383490,     2.5057910,   &
     &        2.2889990,     2.0908140,     1.9117910,     1.7512000,   &
     &        1.4795260,     1.2627740,     1.0886880,     0.9474060,   &
     &        0.8314380,     0.6189740,     0.4778550,     0.3086410,   &
     &        0.2153540,     0.1079130,     0.0645990              /
! REF FH  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2,  9) /     -0.39039862127580 /
      data refh    (2,  9) /      0.39039862127579 /
      data gffq    (2,  9) /     -0.24773915491465 /
      data gffh    (2,  9) /      0.24773915491465 /
      data dftq    (2,  9) /     -0.22072200000000 /
      data dfth    (2,  9) /      0.22072100000000 /
      data pbcq    (2,  9) /     -0.39039862127580 /
      data pbch    (2,  9) /      0.39039862127579 /
      data clsq    (2,  9) /     -0.24773915491465 /
      data clsh    (2,  9) /      0.24773915491465 /
      data hcount  (2,  9) /      1.00000000000000 /
      data ascale  (2,  9) /      1.00000000000000 /
      data refcovcn(2,  9) /      0.74076991274917 /
      data refcn   (2,  9) /      0.99820363068818 /
      data refsys (2,  9) /    1 /
      data alphaiw(:,2,  9) /                                            &
     &        5.4170520,     5.3885820,     5.3062630,     5.0155720,   &
     &        4.6285580,     4.2137360,     3.8104020,     3.4368990,   &
     &        3.0998560,     2.7999440,     2.5350070,     2.3017150,   &
     &        1.9155660,     1.6145960,     1.3772910,     1.1876550,   &
     &        1.0340620,     0.7578460,     0.5783980,     0.3678490,   &
     &        0.2541230,     0.1255490,     0.0746120              /
      data refn(9) / 2 /
! REF Ne  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 10) /      0.00000000000000 /
      data refh    (1, 10) /      0.00000000000000 /
      data gffq    (1, 10) /      0.00000000000000 /
      data gffh    (1, 10) /      0.00000000000000 /
      data dftq    (1, 10) /      0.00000000000000 /
      data dfth    (1, 10) /      0.00000000000000 /
      data pbcq    (1, 10) /      0.00000000000000 /
      data pbch    (1, 10) /      0.00000000000000 /
      data clsq    (1, 10) /      0.00000000000000 /
      data clsh    (1, 10) /      0.00000000000000 /
      data hcount  (1, 10) /      0.00000000000000 /
      data ascale  (1, 10) /      1.00000000000000 /
      data refcovcn(1, 10) /      0.00000000000000 /
      data refcn   (1, 10) /      0.00000000000000 /
      data refsys (1, 10) /    1 /
      data alphaiw(:,1, 10) /                                            &
     &        2.6227940,     2.6160810,     2.5963010,     2.5221150,   &
     &        2.4130070,     2.2831850,     2.1442240,     2.0040890,   &
     &        1.8677460,     1.7380750,     1.6165850,     1.5039070,   &
     &        1.3049180,     1.1383170,     0.9993630,     0.8832020,   &
     &        0.7855560,     0.6010260,     0.4739350,     0.3155110,   &
     &        0.2245720,     0.1157090,     0.0702160              /
      data refn(10) / 1 /
! REF Na  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 11) /     -0.00000000000000 /
      data refh    (1, 11) /      0.00000000000000 /
      data gffq    (1, 11) /      0.00000000000000 /
      data gffh    (1, 11) /      0.00000000000000 /
      data dftq    (1, 11) /     -0.00000000000000 /
      data dfth    (1, 11) /      0.00000000000000 /
      data pbcq    (1, 11) /     -0.00000000000000 /
      data pbch    (1, 11) /      0.00000000000000 /
      data clsq    (1, 11) /      0.00000000000000 /
      data clsh    (1, 11) /      0.00000000000000 /
      data hcount  (1, 11) /      0.00000000000000 /
      data ascale  (1, 11) /      1.00000000000000 /
      data refcovcn(1, 11) /      0.00000000000000 /
      data refcn   (1, 11) /      0.00000000000000 /
      data refsys (1, 11) /    1 /
      data alphaiw(:,1, 11) /                                            &
     &      170.9285310,   119.1946230,    62.8166710,    22.2250350,   &
     &       11.0609650,     6.7225680,     4.6167630,     3.4360280,   &
     &        2.7038020,     2.2145400,     1.8682650,     1.6117710,   &
     &        1.2586520,     1.0272610,     0.8636930,     0.7418060,   &
     &        0.6474800,     0.4849210,     0.3823130,     0.2620130,   &
     &        0.1947130,     0.1108050,     0.0717200              /
! REF NaH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 11) /      0.44612148675493 /
      data refh    (2, 11) /     -0.44612148675493 /
      data gffq    (2, 11) /      0.37895090683878 /
      data gffh    (2, 11) /     -0.37895090683878 /
      data dftq    (2, 11) /      0.36819000000000 /
      data dfth    (2, 11) /     -0.36819400000000 /
      data pbcq    (2, 11) /      0.44612148675493 /
      data pbch    (2, 11) /     -0.44612148675493 /
      data clsq    (2, 11) /      0.37895090683878 /
      data clsh    (2, 11) /     -0.37895090683878 /
      data hcount  (2, 11) /      1.00000000000000 /
      data ascale  (2, 11) /      1.00000000000000 /
      data refcovcn(2, 11) /      0.78077255822701 /
      data refcn   (2, 11) /      0.96835675605614 /
      data refsys (2, 11) /    1 /
      data alphaiw(:,2, 11) /                                            &
     &       40.8166710,    37.3885700,    30.2959980,    18.3845350,   &
     &       11.8437670,     8.2528940,     6.1199710,     4.7572100,   &
     &        3.8333160,     3.1762600,     2.6903860,     2.3193520,   &
     &        1.7948680,     1.4454310,     1.1979870,     1.0146980,   &
     &        0.8742120,     0.6365370,     0.4905090,     0.3247020,   &
     &        0.2353690,     0.1290210,     0.0819540              /
      data refn(11) / 2 /
! REF Mg  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 12) /      0.00000000000000 /
      data refh    (1, 12) /      0.00000000000000 /
      data gffq    (1, 12) /      0.00000000000000 /
      data gffh    (1, 12) /      0.00000000000000 /
      data dftq    (1, 12) /      0.00000000000000 /
      data dfth    (1, 12) /      0.00000000000000 /
      data pbcq    (1, 12) /      0.00000000000000 /
      data pbch    (1, 12) /      0.00000000000000 /
      data clsq    (1, 12) /      0.00000000000000 /
      data clsh    (1, 12) /      0.00000000000000 /
      data hcount  (1, 12) /      0.00000000000000 /
      data ascale  (1, 12) /      1.00000000000000 /
      data refcovcn(1, 12) /      0.00000000000000 /
      data refcn   (1, 12) /      0.00000000000000 /
      data refsys (1, 12) /    1 /
      data alphaiw(:,1, 12) /                                            &
     &       75.6666810,    68.6955210,    53.9153050,    29.2692840,   &
     &       16.8382330,    10.6997010,     7.3793160,     5.4168470,   &
     &        4.1702110,     3.3314920,     2.7405460,     2.3081520,   &
     &        1.7285400,     1.3653680,     1.1201210,     0.9447260,   &
     &        0.8135180,     0.5959160,     0.4626290,     0.3079420,   &
     &        0.2219990,     0.1188580,     0.0745220              /
! REF MgH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 12) /      0.31858696553843 /
      data refh    (2, 12) /     -0.31858696553843 /
      data gffq    (2, 12) /      0.32933884303798 /
      data gffh    (2, 12) /     -0.32933884303798 /
      data dftq    (2, 12) /      0.23345000000000 /
      data dfth    (2, 12) /     -0.23345000000000 /
      data pbcq    (2, 12) /      0.31858696553843 /
      data pbch    (2, 12) /     -0.31858696553843 /
      data clsq    (2, 12) /      0.32933884303798 /
      data clsh    (2, 12) /     -0.32933884303798 /
      data hcount  (2, 12) /      1.00000000000000 /
      data ascale  (2, 12) /      1.00000000000000 /
      data refcovcn(2, 12) /      0.82437946770105 /
      data refcn   (2, 12) /      0.96281367993504 /
      data refsys (2, 12) /    1 /
      data alphaiw(:,2, 12) /                                            &
     &       65.0041490,    57.3670330,    44.6926220,    26.8427890,   &
     &       17.2249920,    11.8363720,     8.6109420,     6.5554130,   &
     &        5.1738650,     4.2034870,     3.4965440,     2.9655110,   &
     &        2.2334680,     1.7623610,     1.4391360,     1.2060360,   &
     &        1.0311360,     0.7419490,     0.5670970,     0.3688080,   &
     &        0.2617440,     0.1369550,     0.0847940              /
! REF MgH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 12) /      0.41366273503502 /
      data refh    (3, 12) /     -0.20683136751751 /
      data gffq    (3, 12) /      0.51074920852765 /
      data gffh    (3, 12) /     -0.25537460426383 /
      data dftq    (3, 12) /      0.48884700000000 /
      data dfth    (3, 12) /     -0.24442000000000 /
      data pbcq    (3, 12) /      0.41366273503502 /
      data pbch    (3, 12) /     -0.20683136751751 /
      data clsq    (3, 12) /      0.51074920852765 /
      data clsh    (3, 12) /     -0.25537460426383 /
      data hcount  (3, 12) /      2.00000000000000 /
      data ascale  (3, 12) /      1.00000000000000 /
      data refcovcn(3, 12) /      1.66972660811953 /
      data refcn   (3, 12) /      1.94960242607378 /
      data refsys (3, 12) /    1 /
      data alphaiw(:,3, 12) /                                            &
     &       34.5442750,    33.5344340,    30.8656630,    23.6561780,   &
     &       17.3397030,    12.8432530,     9.7723270,     7.6521380,   &
     &        6.1504810,     5.0567630,     4.2388110,     3.6123090,   &
     &        2.7314370,     2.1542960,     1.7542370,     1.4641950,   &
     &        1.2461470,     0.8862330,     0.6703080,     0.4289380,   &
     &        0.3010120,     0.1548430,     0.0949500              /
      data refn(12) / 3 /
! REF Al  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 13) /     -0.00000000000001 /
      data refh    (1, 13) /      0.00000000000000 /
      data gffq    (1, 13) /      0.00000000000000 /
      data gffh    (1, 13) /      0.00000000000000 /
      data dftq    (1, 13) /     -0.00000000000001 /
      data dfth    (1, 13) /      0.00000000000000 /
      data pbcq    (1, 13) /     -0.00000000000001 /
      data pbch    (1, 13) /      0.00000000000000 /
      data clsq    (1, 13) /      0.00000000000000 /
      data clsh    (1, 13) /      0.00000000000000 /
      data hcount  (1, 13) /      0.00000000000000 /
      data ascale  (1, 13) /      1.00000000000000 /
      data refcovcn(1, 13) /      0.00000000000000 /
      data refcn   (1, 13) /      0.00000000000000 /
      data refsys (1, 13) /    1 /
      data alphaiw(:,1, 13) /                                            &
     &       60.8923430,    56.3100140,    46.7886820,    29.5825800,   &
     &       18.9999900,    12.8554770,     9.1653720,     6.8351170,   &
     &        5.2901970,     4.2211880,     3.4539770,     2.8860210,   &
     &        2.1186190,     1.6376640,     1.3157820,     1.0890010,   &
     &        0.9224950,     0.6556710,     0.5002950,     0.3292210,   &
     &        0.2377920,     0.1286420,     0.0807650              /
! REF AlH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 13) /      0.24477359918812 /
      data refh    (2, 13) /     -0.24477359918812 /
      data gffq    (2, 13) /      0.03709152257935 /
      data gffh    (2, 13) /     -0.03709152257935 /
      data dftq    (2, 13) /      0.09741300000000 /
      data dfth    (2, 13) /     -0.09741400000000 /
      data pbcq    (2, 13) /      0.24477359918812 /
      data pbch    (2, 13) /     -0.24477359918812 /
      data clsq    (2, 13) /      0.03709152257935 /
      data clsh    (2, 13) /     -0.03709152257935 /
      data hcount  (2, 13) /      1.00000000000000 /
      data ascale  (2, 13) /      1.00000000000000 /
      data refcovcn(2, 13) /      0.86567622356503 /
      data refcn   (2, 13) /      0.96483397822083 /
      data refsys (2, 13) /    1 /
      data alphaiw(:,2, 13) /                                            &
     &       56.2109890,    52.4017100,    44.3132520,    29.4084250,   &
     &       19.9025080,    14.0717810,    10.3773750,     7.9372390,   &
     &        6.2599590,     5.0653090,     4.1877030,     3.5255730,   &
     &        2.6117110,     2.0262590,     1.6284670,     1.3453070,   &
     &        1.1360060,     0.7989100,     0.6026620,     0.3886840,   &
     &        0.2764850,     0.1461420,     0.0906750              /
! REF AlH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 13) /      0.36087089502136 /
      data refh    (3, 13) /     -0.18043544751068 /
      data gffq    (3, 13) /      0.05079767549293 /
      data gffh    (3, 13) /     -0.02539883774646 /
      data dftq    (3, 13) /      0.29823500000000 /
      data dfth    (3, 13) /     -0.14912100000000 /
      data pbcq    (3, 13) /      0.36087089502136 /
      data pbch    (3, 13) /     -0.18043544751068 /
      data clsq    (3, 13) /      0.05079767549293 /
      data clsh    (3, 13) /     -0.02539883774646 /
      data hcount  (3, 13) /      2.00000000000000 /
      data ascale  (3, 13) /      1.00000000000000 /
      data refcovcn(3, 13) /      1.73262223552501 /
      data refcn   (3, 13) /      1.93105228668158 /
      data refsys (3, 13) /    1 /
      data alphaiw(:,3, 13) /                                            &
     &       43.0078740,    40.3049500,    35.7272810,    26.8099970,   &
     &       19.8081180,    14.8306090,    11.3606550,     8.9171350,   &
     &        7.1607780,     5.8687510,     4.8965000,     4.1493490,   &
     &        3.0979680,     2.4116390,     1.9395410,     1.6007580,   &
     &        1.3490360,     0.9419730,     0.7048990,     0.4480100,   &
     &        0.3150480,     0.1635630,     0.1005420              /
! REF AlH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 13) /      0.43660315476639 /
      data refh    (4, 13) /     -0.14553438492213 /
      data gffq    (4, 13) /      0.05291396113772 /
      data gffh    (4, 13) /     -0.01763798704591 /
      data dftq    (4, 13) /      0.45393300000000 /
      data dfth    (4, 13) /     -0.15131333333333 /
      data pbcq    (4, 13) /      0.43660315476639 /
      data pbch    (4, 13) /     -0.14553438492213 /
      data clsq    (4, 13) /      0.05291396113772 /
      data clsh    (4, 13) /     -0.01763798704591 /
      data hcount  (4, 13) /      3.00000000000000 /
      data ascale  (4, 13) /      1.00000000000000 /
      data refcovcn(4, 13) /      2.61541321571983 /
      data refcn   (4, 13) /      2.91455515763177 /
      data refsys (4, 13) /    1 /
      data alphaiw(:,4, 13) /                                            &
     &       32.2831180,    31.7115930,    30.1255060,    25.2170820,   &
     &       20.0120360,    15.6749350,    12.3626340,     9.8945680,   &
     &        8.0530620,     6.6626970,     5.5965060,     4.7654850,   &
     &        3.5787890,     2.7932030,     2.2479080,     1.8542580,   &
     &        1.5606340,     1.0843300,     0.8067590,     0.5072070,   &
     &        0.3535600,     0.1809750,     0.1104040              /
      data refn(13) / 4 /
! REF Si  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 14) /     -0.00000000000000 /
      data refh    (1, 14) /      0.00000000000000 /
      data gffq    (1, 14) /      0.00000000000000 /
      data gffh    (1, 14) /      0.00000000000000 /
      data dftq    (1, 14) /     -0.00000000000000 /
      data dfth    (1, 14) /      0.00000000000000 /
      data pbcq    (1, 14) /     -0.00000000000000 /
      data pbch    (1, 14) /      0.00000000000000 /
      data clsq    (1, 14) /      0.00000000000000 /
      data clsh    (1, 14) /      0.00000000000000 /
      data hcount  (1, 14) /      0.00000000000000 /
      data ascale  (1, 14) /      1.00000000000000 /
      data refcovcn(1, 14) /      0.00000000000000 /
      data refcn   (1, 14) /      0.00000000000000 /
      data refsys (1, 14) /    1 /
      data alphaiw(:,1, 14) /                                            &
     &       38.9490650,    37.5127500,    33.9244170,    25.1761170,   &
     &       18.0845250,    13.1765080,     9.8616700,     7.5917060,   &
     &        5.9982420,     4.8493400,     3.9995310,     3.3561160,   &
     &        2.4668840,     1.8982190,     1.5134620,     1.2411020,   &
     &        1.0410670,     0.7226000,     0.5405560,     0.3465530,   &
     &        0.2471760,     0.1332610,     0.0845050              /
! REF SiH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 14) /      0.16996090542321 /
      data refh    (2, 14) /     -0.16996090542321 /
      data gffq    (2, 14) /      0.01649127941162 /
      data gffh    (2, 14) /     -0.01649127941162 /
      data dftq    (2, 14) /      0.10844400000000 /
      data dfth    (2, 14) /     -0.10844300000000 /
      data pbcq    (2, 14) /      0.16996090542321 /
      data pbch    (2, 14) /     -0.16996090542321 /
      data clsq    (2, 14) /      0.01649127941162 /
      data clsh    (2, 14) /     -0.01649127941162 /
      data hcount  (2, 14) /      1.00000000000000 /
      data ascale  (2, 14) /      1.00000000000000 /
      data refcovcn(2, 14) /      0.89153537011814 /
      data refcn   (2, 14) /      0.95070518838146 /
      data refsys (2, 14) /    1 /
      data alphaiw(:,2, 14) /                                            &
     &       38.0097750,    36.6441270,    33.3701090,    25.5897470,   &
     &       19.0941400,    14.3691430,    11.0297080,     8.6569570,   &
     &        6.9417830,     5.6758970,     4.7217950,     3.9882980,   &
     &        2.9570580,     2.2858030,     1.8259530,     1.4975500,   &
     &        1.2548440,     0.8660940,     0.6430810,     0.4060490,   &
     &        0.2858610,     0.1507420,     0.0943940              /
! REF SiH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 14) /      0.24464651039015 /
      data refh    (3, 14) /     -0.12232325519507 /
      data gffq    (3, 14) /     -0.00640083798505 /
      data gffh    (3, 14) /      0.00320041899253 /
      data dftq    (3, 14) /      0.09099000000000 /
      data dfth    (3, 14) /     -0.04549600000000 /
      data pbcq    (3, 14) /      0.24464651039015 /
      data pbch    (3, 14) /     -0.12232325519507 /
      data clsq    (3, 14) /     -0.00640083798505 /
      data clsh    (3, 14) /      0.00320041899253 /
      data hcount  (3, 14) /      2.00000000000000 /
      data ascale  (3, 14) /      1.00000000000000 /
      data refcovcn(3, 14) /      1.82343155163634 /
      data refcn   (3, 14) /      1.94352476341216 /
      data refsys (3, 14) /    1 /
      data alphaiw(:,3, 14) /                                            &
     &       37.2763200,    36.2054630,    33.4711240,    26.4376500,   &
     &       20.2438260,    15.5716430,    12.1648030,     9.6798740,   &
     &        7.8448670,     6.4670510,     5.4140820,     4.5954000,   &
     &        3.4297600,     2.6610590,     2.1295730,     1.7474840,   &
     &        1.4637430,     1.0070410,     0.7441640,     0.4650030,   &
     &        0.3243180,     0.1681920,     0.1042810              /
! REF Si2H4 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 14) /      0.20893161833848 /
      data refh    (4, 14) /     -0.10446580916924 /
      data gffq    (4, 14) /     -0.03084420203156 /
      data gffh    (4, 14) /      0.01542210101578 /
      data dftq    (4, 14) /      0.08951100000000 /
      data dfth    (4, 14) /     -0.04475900000000 /
      data pbcq    (4, 14) /      0.20893161833848 /
      data pbch    (4, 14) /     -0.10446580916924 /
      data clsq    (4, 14) /     -0.03084420203156 /
      data clsh    (4, 14) /      0.01542210101578 /
      data hcount  (4, 14) /      4.00000000000000 /
      data ascale  (4, 14) /      0.50000000000000 /
      data refcovcn(4, 14) /      2.80029114356397 /
      data refcn   (4, 14) /      2.94071103313097 /
      data refsys (4, 14) /    1 /
      data alphaiw(:,4, 14) /                                            &
     &       75.2662880,    72.3612970,    65.6345910,    50.8100850,   &
     &       38.9033790,    30.0787730,    23.6268450,    18.8896320,   &
     &       15.3681050,    12.7085630,    10.6661350,     9.0717390,   &
     &        6.7912830,     5.2803260,     4.2321590,     3.4767820,   &
     &        2.9147970,     2.0082810,     1.4853250,     0.9289700,   &
     &        0.6481770,     0.3362410,     0.2084750              /
! REF Si2H6 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (5, 14) /      0.36245469453493 /
      data refh    (5, 14) /     -0.12081823151164 /
      data gffq    (5, 14) /     -0.06585975737745 /
      data gffh    (5, 14) /      0.02195325245915 /
      data dftq    (5, 14) /      0.18170400000000 /
      data dfth    (5, 14) /     -0.06057216666667 /
      data pbcq    (5, 14) /      0.36245469453493 /
      data pbch    (5, 14) /     -0.12081823151164 /
      data clsq    (5, 14) /     -0.06585975737745 /
      data clsh    (5, 14) /      0.02195325245915 /
      data hcount  (5, 14) /      6.00000000000000 /
      data ascale  (5, 14) /      0.50000000000000 /
      data refcovcn(5, 14) /      3.66675219599495 /
      data refcn   (5, 14) /      3.86773979105472 /
      data refsys (5, 14) /    1 /
      data alphaiw(:,5, 14) /                                            &
     &       61.7861480,    60.8116450,    58.0975290,    49.5798710,   &
     &       40.2758690,    32.2331470,    25.8672360,    20.9751250,   &
     &       17.2319240,    14.3488200,    12.1032080,    10.3316220,   &
     &        7.7698820,     6.0547620,     4.8568220,     3.9895410,   &
     &        3.3422950,     2.2952740,     1.6903860,     1.0479590,   &
     &        0.7255320,     0.3711770,     0.2282300              /
      data refn(14) / 5 /
! REF P - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 15) /     -0.00000000000002 /
      data refh    (1, 15) /      0.00000000000000 /
      data gffq    (1, 15) /      0.00000000000000 /
      data gffh    (1, 15) /      0.00000000000000 /
      data dftq    (1, 15) /     -0.00000000000002 /
      data dfth    (1, 15) /      0.00000000000000 /
      data pbcq    (1, 15) /     -0.00000000000002 /
      data pbch    (1, 15) /      0.00000000000000 /
      data clsq    (1, 15) /      0.00000000000000 /
      data clsh    (1, 15) /      0.00000000000000 /
      data hcount  (1, 15) /      0.00000000000000 /
      data ascale  (1, 15) /      1.00000000000000 /
      data refcovcn(1, 15) /      0.00000000000000 /
      data refcn   (1, 15) /      0.00000000000000 /
      data refsys (1, 15) /    1 /
      data alphaiw(:,1, 15) /                                            &
     &       25.9470070,    25.4290340,    24.0216260,    19.8723550,   &
     &       15.6749860,    12.2514680,     9.6516650,     7.7129690,   &
     &        6.2628530,     5.1656700,     4.3233980,     3.6669330,   &
     &        2.7311570,     2.1144260,     1.6888290,     1.3835900,   &
     &        1.1574800,     0.7949870,     0.5875340,     0.3687610,   &
     &        0.2592740,     0.1378720,     0.0875080              /
! REF PH  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 15) /     -0.08781933943535 /
      data refh    (2, 15) /      0.08781933943535 /
      data gffq    (2, 15) /     -0.17987135979307 /
      data gffh    (2, 15) /      0.17987135979307 /
      data dftq    (2, 15) /      0.02053400000000 /
      data dfth    (2, 15) /     -0.02053400000000 /
      data pbcq    (2, 15) /     -0.08781933943535 /
      data pbch    (2, 15) /      0.08781933943535 /
      data clsq    (2, 15) /     -0.17987135979307 /
      data clsh    (2, 15) /      0.17987135979307 /
      data hcount  (2, 15) /      1.00000000000000 /
      data ascale  (2, 15) /      1.00000000000000 /
      data refcovcn(2, 15) /      0.97498969761258 /
      data refcn   (2, 15) /      0.99467058048882 /
      data refsys (2, 15) /    1 /
      data alphaiw(:,2, 15) /                                            &
     &       27.8753970,    27.3122270,    25.8232190,    21.5634300,   &
     &       17.2591270,    13.6872210,    10.9190600,     8.8162050,   &
     &        7.2183460,     5.9933920,     5.0426620,     4.2948080,   &
     &        3.2172770,     2.4989620,     1.9991280,     1.6384630,   &
     &        1.3701110,     0.9379270,     0.6897680,     0.4281650,   &
     &        0.2979330,     0.1553700,     0.0974170              /
! REF P2H2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 15) /     -0.03728416506247 /
      data refh    (3, 15) /      0.03728416506247 /
      data gffq    (3, 15) /     -0.12671124139840 /
      data gffh    (3, 15) /      0.12671124139840 /
      data dftq    (3, 15) /      0.00896800000000 /
      data dfth    (3, 15) /     -0.00896100000000 /
      data pbcq    (3, 15) /     -0.03728416506247 /
      data pbch    (3, 15) /      0.03728416506247 /
      data clsq    (3, 15) /     -0.12671124139840 /
      data clsh    (3, 15) /      0.12671124139840 /
      data hcount  (3, 15) /      2.00000000000000 /
      data ascale  (3, 15) /      0.50000000000000 /
      data refcovcn(3, 15) /      1.95559430261502 /
      data refcn   (3, 15) /      2.01017301871106 /
      data refsys (3, 15) /    1 /
      data alphaiw(:,3, 15) /                                            &
     &       55.7853670,    54.5314410,    51.2683850,    42.3425800,   &
     &       33.7346300,    26.7484370,    21.3755400,    17.2987970,   &
     &       14.1966540,    11.8128320,     9.9578290,     8.4949500,   &
     &        6.3802250,     4.9651180,     3.9775280,     3.2633040,   &
     &        2.7309600,     1.8718860,     1.3776140,     0.8557670,   &
     &        0.5956760,     0.3107310,     0.1948320              /
! REF PH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 15) /     -0.11027568702170 /
      data refh    (4, 15) /      0.03675856234057 /
      data gffq    (4, 15) /     -0.17467927422329 /
      data gffh    (4, 15) /      0.05822642474110 /
      data dftq    (4, 15) /      0.01948500000000 /
      data dfth    (4, 15) /     -0.00648966666667 /
      data pbcq    (4, 15) /     -0.11027568702170 /
      data pbch    (4, 15) /      0.03675856234057 /
      data clsq    (4, 15) /     -0.17467927422329 /
      data clsh    (4, 15) /      0.05822642474110 /
      data hcount  (4, 15) /      3.00000000000000 /
      data ascale  (4, 15) /      1.00000000000000 /
      data refcovcn(4, 15) /      2.92666412421238 /
      data refcn   (4, 15) /      2.98587564194422 /
      data refsys (4, 15) /    1 /
      data alphaiw(:,4, 15) /                                            &
     &       30.4586930,    29.9832590,    28.6718190,    24.6351360,   &
     &       20.2683100,    16.4561420,    13.3810200,    10.9693570,   &
     &        9.0896850,     7.6189190,     6.4582620,     5.5327160,   &
     &        4.1782340,     3.2605350,     2.6145330,     2.1444890,   &
     &        1.7926280,     1.2223890,     0.8934200,     0.5466340,   &
     &        0.3750780,     0.1903100,     0.1172040              /
      data refn(15) / 4 /
! REF S - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 16) /      0.00000000000000 /
      data refh    (1, 16) /      0.00000000000000 /
      data gffq    (1, 16) /      0.00000000000000 /
      data gffh    (1, 16) /      0.00000000000000 /
      data dftq    (1, 16) /      0.00000000000000 /
      data dfth    (1, 16) /      0.00000000000000 /
      data pbcq    (1, 16) /      0.00000000000000 /
      data pbch    (1, 16) /      0.00000000000000 /
      data clsq    (1, 16) /      0.00000000000000 /
      data clsh    (1, 16) /      0.00000000000000 /
      data hcount  (1, 16) /      0.00000000000000 /
      data ascale  (1, 16) /      1.00000000000000 /
      data refcovcn(1, 16) /      0.00000000000000 /
      data refcn   (1, 16) /      0.00000000000000 /
      data refsys (1, 16) /    1 /
      data alphaiw(:,1, 16) /                                            &
     &       19.6135110,    19.3396950,    18.5777950,    16.1740460,   &
     &       13.4828010,    11.0662650,     9.0764420,     7.4918500,   &
     &        6.2419920,     5.2546810,     4.4695850,     3.8397190,   &
     &        2.9119750,     2.2796060,     1.8328050,     1.5069310,   &
     &        1.2625940,     0.8658660,     0.6364800,     0.3940160,   &
     &        0.2736140,     0.1429400,     0.0902880              /
! REF SH  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 16) /     -0.17222533078871 /
      data refh    (2, 16) /      0.17222533078872 /
      data gffq    (2, 16) /     -0.16267234588041 /
      data gffh    (2, 16) /      0.16267234588041 /
      data dftq    (2, 16) /     -0.06020800000000 /
      data dfth    (2, 16) /      0.06020800000000 /
      data pbcq    (2, 16) /     -0.17222533078871 /
      data pbch    (2, 16) /      0.17222533078872 /
      data clsq    (2, 16) /     -0.16267234588041 /
      data clsh    (2, 16) /      0.16267234588041 /
      data hcount  (2, 16) /      1.00000000000000 /
      data ascale  (2, 16) /      1.00000000000000 /
      data refcovcn(2, 16) /      0.92198495968462 /
      data refcn   (2, 16) /      0.99484136522295 /
      data refsys (2, 16) /    1 /
      data alphaiw(:,2, 16) /                                            &
     &       22.2041430,    21.8891090,    21.0218000,    18.3279640,   &
     &       15.3337320,    12.6407210,    10.4119420,     8.6265960,   &
     &        7.2105080,     6.0862970,     5.1884110,     4.4652670,   &
     &        3.3950220,     2.6615450,     2.1411100,     1.7603030,   &
     &        1.4740840,     1.0081850,     0.7383390,     0.4532570,   &
     &        0.3121980,     0.1604390,     0.1002160              /
! REF SH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 16) /     -0.34208440204466 /
      data refh    (3, 16) /      0.17104220102233 /
      data gffq    (3, 16) /     -0.23775171448878 /
      data gffh    (3, 16) /      0.11887585724439 /
      data dftq    (3, 16) /     -0.12414700000000 /
      data dfth    (3, 16) /      0.06208000000000 /
      data pbcq    (3, 16) /     -0.34208440204466 /
      data pbch    (3, 16) /      0.17104220102233 /
      data clsq    (3, 16) /     -0.23775171448878 /
      data clsh    (3, 16) /      0.11887585724439 /
      data hcount  (3, 16) /      2.00000000000000 /
      data ascale  (3, 16) /      1.00000000000000 /
      data refcovcn(3, 16) /      1.84453813661707 /
      data refcn   (3, 16) /      1.99034385492992 /
      data refsys (3, 16) /    1 /
      data alphaiw(:,3, 16) /                                            &
     &       24.5118610,    24.1774360,    23.2503900,    20.3440110,   &
     &       17.0929990,    14.1530500,    11.7050130,     9.7320240,   &
     &        8.1583820,     6.9030290,     5.8962250,     5.0824590,   &
     &        3.8729230,     3.0400830,     2.4470470,     2.0119580,   &
     &        1.6842890,     1.1498080,     0.8397730,     0.5122980,   &
     &        0.3506710,     0.1779010,     0.1101270              /
      data refn(16) / 3 /
! REF Cl  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 17) /      0.00000000000000 /
      data refh    (1, 17) /      0.00000000000000 /
      data gffq    (1, 17) /      0.00000000000000 /
      data gffh    (1, 17) /      0.00000000000000 /
      data dftq    (1, 17) /      0.00000000000000 /
      data dfth    (1, 17) /      0.00000000000000 /
      data pbcq    (1, 17) /      0.00000000000000 /
      data pbch    (1, 17) /      0.00000000000000 /
      data clsq    (1, 17) /      0.00000000000000 /
      data clsh    (1, 17) /      0.00000000000000 /
      data hcount  (1, 17) /      0.00000000000000 /
      data ascale  (1, 17) /      1.00000000000000 /
      data refcovcn(1, 17) /      0.00000000000000 /
      data refcn   (1, 17) /      0.00000000000000 /
      data refsys (1, 17) /    1 /
      data alphaiw(:,1, 17) /                                            &
     &       14.6510610,    14.5166850,    14.1329320,    12.8305660,   &
     &       11.2118050,     9.6110460,     8.1817260,     6.9658720,   &
     &        5.9541940,     5.1193500,     4.4310730,     3.8619390,   &
     &        2.9935150,     2.3788950,     1.9324470,     1.6000440,   &
     &        1.3469040,     0.9286160,     0.6827690,     0.4202900,   &
     &        0.2895830,     0.1489740,     0.0934510              /
! REF ClH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 17) /     -0.33096614692976 /
      data refh    (2, 17) /      0.33096614692977 /
      data gffq    (2, 17) /     -0.15045057451823 /
      data gffh    (2, 17) /      0.15045057451823 /
      data dftq    (2, 17) /     -0.13139700000000 /
      data dfth    (2, 17) /      0.13139800000000 /
      data pbcq    (2, 17) /     -0.33096614692976 /
      data pbch    (2, 17) /      0.33096614692977 /
      data clsq    (2, 17) /     -0.15045057451823 /
      data clsh    (2, 17) /      0.15045057451823 /
      data hcount  (2, 17) /      1.00000000000000 /
      data ascale  (2, 17) /      1.00000000000000 /
      data refcovcn(2, 17) /      0.84439969796621 /
      data refcn   (2, 17) /      0.99718907461633 /
      data refsys (2, 17) /    1 /
      data alphaiw(:,2, 17) /                                            &
     &       17.2630540,    17.0983080,    16.6294740,    15.0531340,   &
     &       13.1168290,    11.2193720,     9.5356020,     8.1091300,   &
     &        6.9254200,     5.9504380,     5.1476860,     4.4845120,   &
     &        3.4734290,     2.7582120,     2.2387270,     1.8518950,   &
     &        1.5572580,     1.0703600,     0.7842990,     0.4793850,   &
     &        0.3280880,     0.1664540,     0.1033810              /
      data refn(17) / 2 /
! REF Ar  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 18) /     -0.00000000000000 /
      data refh    (1, 18) /      0.00000000000000 /
      data gffq    (1, 18) /      0.00000000000000 /
      data gffh    (1, 18) /      0.00000000000000 /
      data dftq    (1, 18) /     -0.00000000000000 /
      data dfth    (1, 18) /      0.00000000000000 /
      data pbcq    (1, 18) /     -0.00000000000000 /
      data pbch    (1, 18) /      0.00000000000000 /
      data clsq    (1, 18) /      0.00000000000000 /
      data clsh    (1, 18) /      0.00000000000000 /
      data hcount  (1, 18) /      0.00000000000000 /
      data ascale  (1, 18) /      1.00000000000000 /
      data refcovcn(1, 18) /      0.00000000000000 /
      data refcn   (1, 18) /      0.00000000000000 /
      data refsys (1, 18) /    1 /
      data alphaiw(:,1, 18) /                                            &
     &       11.1080370,    11.0394140,    10.8402330,    10.1295640,   &
     &        9.1733700,     8.1487470,     7.1654820,     6.2757630,   &
     &        5.4960060,     4.8240080,     4.2494460,     3.7594860,   &
     &        2.9839560,     2.4128240,     1.9852170,     1.6593100,   &
     &        1.4065440,     0.9797740,     0.7235180,     0.4456840,   &
     &        0.3060220,     0.1557480,     0.0970350              /
      data refn(18) / 1 /
! REF K - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 19) /     -0.00000000000000 /
      data refh    (1, 19) /      0.00000000000000 /
      data gffq    (1, 19) /      0.00000000000000 /
      data gffh    (1, 19) /      0.00000000000000 /
      data dftq    (1, 19) /     -0.00000000000000 /
      data dfth    (1, 19) /      0.00000000000000 /
      data pbcq    (1, 19) /     -0.00000000000000 /
      data pbch    (1, 19) /      0.00000000000000 /
      data clsq    (1, 19) /      0.00000000000000 /
      data clsh    (1, 19) /      0.00000000000000 /
      data hcount  (1, 19) /      0.00000000000000 /
      data ascale  (1, 19) /      1.00000000000000 /
      data refcovcn(1, 19) /      0.00000000000000 /
      data refcn   (1, 19) /      0.00000000000000 /
      data refsys (1, 19) /    1 /
      data alphaiw(:,1, 19) /                                            &
     &      366.6173270,   195.2407260,    83.8654450,    28.8051330,   &
     &       15.9216120,    10.9496410,     8.4035800,     6.8431600,   &
     &        5.7666680,     4.9640380,     4.3344440,     3.8237620,   &
     &        3.0427910,     2.4756550,     2.0494570,     1.7214130,   &
     &        1.4641050,     1.0222030,     0.7516860,     0.4544310,   &
     &        0.3045490,     0.1458010,     0.0862690              /
! REF KH  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 19) /      0.44919564371790 /
      data refh    (2, 19) /     -0.44919564371790 /
      data gffq    (2, 19) /      0.44376242787490 /
      data gffh    (2, 19) /     -0.44376242787490 /
      data dftq    (2, 19) /      0.43084800000000 /
      data dfth    (2, 19) /     -0.43085400000000 /
      data pbcq    (2, 19) /      0.44919564371790 /
      data pbch    (2, 19) /     -0.44919564371790 /
      data clsq    (2, 19) /      0.44376242787490 /
      data clsh    (2, 19) /     -0.44376242787490 /
      data hcount  (2, 19) /      1.00000000000000 /
      data ascale  (2, 19) /      1.00000000000000 /
      data refcovcn(2, 19) /      0.77389074718844 /
      data refcn   (2, 19) /      0.97673829344237 /
      data refsys (2, 19) /    1 /
      data alphaiw(:,2, 19) /                                            &
     &       53.4389170,    47.8463210,    37.7399140,    23.4699070,   &
     &       16.3225240,    12.3576000,     9.8698810,     8.1579680,   &
     &        6.9001080,     5.9321790,     5.1625350,     4.5358880,   &
     &        3.5804740,     2.8930340,     2.3815560,     1.9913210,   &
     &        1.6874660,     1.1703840,     0.8568800,     0.5151140,   &
     &        0.3439260,     0.1635940,     0.0963540              /
      data refn(19) / 2 /
! REF Ca  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 20) /     -0.00000000000000 /
      data refh    (1, 20) /      0.00000000000000 /
      data gffq    (1, 20) /      0.00000000000000 /
      data gffh    (1, 20) /      0.00000000000000 /
      data dftq    (1, 20) /     -0.00000000000000 /
      data dfth    (1, 20) /      0.00000000000000 /
      data pbcq    (1, 20) /     -0.00000000000000 /
      data pbch    (1, 20) /      0.00000000000000 /
      data clsq    (1, 20) /      0.00000000000000 /
      data clsh    (1, 20) /      0.00000000000000 /
      data hcount  (1, 20) /      0.00000000000000 /
      data ascale  (1, 20) /      1.00000000000000 /
      data refcovcn(1, 20) /      0.00000000000000 /
      data refcn   (1, 20) /      0.00000000000000 /
      data refsys (1, 20) /    1 /
      data alphaiw(:,1, 20) /                                            &
     &      167.3331200,   138.7350820,    92.3660100,    41.0298690,   &
     &       22.5025050,    14.5451620,    10.4632190,     8.0723760,   &
     &        6.5267080,     5.4500180,     4.6561940,     4.0450480,   &
     &        3.1618950,     2.5524970,     2.1073550,     1.7698140,   &
     &        1.5069710,     1.0569390,     0.7807210,     0.4750180,   &
     &        0.3195680,     0.1538130,     0.0914010              /
! REF CaH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 20) /      0.42382302801843 /
      data refh    (2, 20) /     -0.42382302801843 /
      data gffq    (2, 20) /      0.31814452979636 /
      data gffh    (2, 20) /     -0.31814452979636 /
      data dftq    (2, 20) /      0.31763200000000 /
      data dfth    (2, 20) /     -0.31762900000000 /
      data pbcq    (2, 20) /      0.42382302801843 /
      data pbch    (2, 20) /     -0.42382302801843 /
      data clsq    (2, 20) /      0.31814452979636 /
      data clsh    (2, 20) /     -0.31814452979636 /
      data hcount  (2, 20) /      1.00000000000000 /
      data ascale  (2, 20) /      1.00000000000000 /
      data refcovcn(2, 20) /      0.80173786145238 /
      data refcn   (2, 20) /      0.98305940539640 /
      data refsys (2, 20) /    1 /
      data alphaiw(:,2, 20) /                                            &
     &      158.1508830,   111.6461600,    67.9213530,    33.9702430,   &
     &       21.3038760,    15.0163380,    11.3779670,     9.0482850,   &
     &        7.4431400,     6.2742820,     5.3861210,     4.6885960,   &
     &        3.6641970,     2.9506000,     2.4285760,     2.0334750,   &
     &        1.7267590,     1.2044810,     0.8862100,     0.5363960,   &
     &        0.3596090,     0.1720510,     0.1017830              /
! REF CaH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 20) /      0.53704625992882 /
      data refh    (3, 20) /     -0.26852312996441 /
      data gffq    (3, 20) /      0.50078886624431 /
      data gffh    (3, 20) /     -0.25039443312215 /
      data dftq    (3, 20) /      0.67361800000000 /
      data dfth    (3, 20) /     -0.33680900000000 /
      data pbcq    (3, 20) /      0.53704625992882 /
      data pbch    (3, 20) /     -0.26852312996441 /
      data clsq    (3, 20) /      0.50078886624431 /
      data clsh    (3, 20) /     -0.25039443312215 /
      data hcount  (3, 20) /      2.00000000000000 /
      data ascale  (3, 20) /      1.00000000000000 /
      data refcovcn(3, 20) /      1.57758711825521 /
      data refcn   (3, 20) /      1.93490105201102 /
      data refsys (3, 20) /    1 /
      data alphaiw(:,3, 20) /                                            &
     &       47.8971840,    45.8022250,    40.7933190,    29.6764790,   &
     &       21.5460190,    16.2269040,    12.6953380,    10.2550730,   &
     &        8.4973390,     7.1832110,     6.1691650,     5.3658830,   &
     &        4.1801140,     3.3536760,     2.7508620,     2.2964010,   &
     &        1.9450020,     1.3500690,     0.9899710,     0.5965960,   &
     &        0.3988370,     0.1899030,     0.1119470              /
      data refn(20) / 3 /
! REF Sc  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 21) /     -0.00000000016423 /
      data refh    (1, 21) /      0.00000000000000 /
      data gffq    (1, 21) /      0.00000000000000 /
      data gffh    (1, 21) /      0.00000000000000 /
      data dftq    (1, 21) /     -0.00000000016423 /
      data dfth    (1, 21) /      0.00000000000000 /
      data pbcq    (1, 21) /     -0.00000000016423 /
      data pbch    (1, 21) /      0.00000000000000 /
      data clsq    (1, 21) /      0.00000000000000 /
      data clsh    (1, 21) /      0.00000000000000 /
      data hcount  (1, 21) /      0.00000000000000 /
      data ascale  (1, 21) /      1.00000000000000 /
      data refcovcn(1, 21) /      0.00000000000000 /
      data refcn   (1, 21) /      0.00000000000000 /
      data refsys (1, 21) /    1 /
      data alphaiw(:,1, 21) /                                            &
     &      125.6799050,   108.3144390,    77.2929700,    37.1320260,   &
     &       20.7670580,    13.4119080,     9.5811350,     7.3353090,   &
     &        5.8931080,     4.8989950,     4.1745440,     3.6229180,   &
     &        2.8357880,     2.2984530,     1.9074130,     1.6106400,   &
     &        1.3787470,     0.9784770,     0.7296280,     0.4499330,   &
     &        0.3052790,     0.1484840,     0.0886520              /
! REF ScH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 21) /      0.19081329498637 /
      data refh    (2, 21) /     -0.09540664749319 /
      data gffq    (2, 21) /      0.50144727255861 /
      data gffh    (2, 21) /     -0.25072363627930 /
      data dftq    (2, 21) /      0.52024200000000 /
      data dfth    (2, 21) /     -0.26011800000000 /
      data pbcq    (2, 21) /      0.19081329498637 /
      data pbch    (2, 21) /     -0.09540664749319 /
      data clsq    (2, 21) /      0.50144727255861 /
      data clsh    (2, 21) /     -0.25072363627930 /
      data hcount  (2, 21) /      2.00000000000000 /
      data ascale  (2, 21) /      1.00000000000000 /
      data refcovcn(2, 21) /      1.60644512750973 /
      data refcn   (2, 21) /      1.86271675054418 /
      data refsys (2, 21) /    1 /
      data alphaiw(:,2, 21) /                                            &
     &       43.3830910,    45.0959100,    39.5276970,    28.9987430,   &
     &       21.3879050,    16.2717510,    12.7943430,    10.3540150,   &
     &        8.5813500,     7.2517530,     6.2258690,     5.4147740,   &
     &        4.2221260,     3.3947970,     2.7929060,     2.3393880,   &
     &        1.9883760,     1.3919190,     1.0282690,     0.6267560,   &
     &        0.4221330,     0.2026710,     0.1197200              /
! REF ScH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 21) /      0.57390950994858 /
      data refh    (3, 21) /     -0.19130316998286 /
      data gffq    (3, 21) /      0.62485373296540 /
      data gffh    (3, 21) /     -0.20828457765513 /
      data dftq    (3, 21) /      0.76227500000000 /
      data dfth    (3, 21) /     -0.25408833333333 /
      data pbcq    (3, 21) /      0.57390950994858 /
      data pbch    (3, 21) /     -0.19130316998286 /
      data clsq    (3, 21) /      0.62485373296540 /
      data clsh    (3, 21) /     -0.20828457765513 /
      data hcount  (3, 21) /      3.00000000000000 /
      data ascale  (3, 21) /      1.00000000000000 /
      data refcovcn(3, 21) /      2.50274820582596 /
      data refcn   (3, 21) /      2.89994293581383 /
      data refsys (3, 21) /    1 /
      data alphaiw(:,3, 21) /                                            &
     &       45.7861990,    44.3266490,    40.7084650,    31.7823730,   &
     &       24.2343690,    18.7383620,    14.8308240,    12.0175160,   &
     &        9.9446720,     8.3787230,     7.1672090,     6.2095210,   &
     &        4.8060710,     3.8394390,     3.1416970,     2.6197890,   &
     &        2.2184260,     1.5421450,     1.1337000,     0.6865730,   &
     &        0.4605190,     0.2197990,     0.1294090              /
      data refn(21) / 3 /
! REF Ti  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 22) /     -0.00000000032847 /
      data refh    (1, 22) /      0.00000000000000 /
      data gffq    (1, 22) /      0.00000000000000 /
      data gffh    (1, 22) /      0.00000000000000 /
      data dftq    (1, 22) /     -0.00000000032847 /
      data dfth    (1, 22) /      0.00000000000000 /
      data pbcq    (1, 22) /     -0.00000000032847 /
      data pbch    (1, 22) /      0.00000000000000 /
      data clsq    (1, 22) /      0.00000000000000 /
      data clsh    (1, 22) /      0.00000000000000 /
      data hcount  (1, 22) /      0.00000000000000 /
      data ascale  (1, 22) /      1.00000000000000 /
      data refcovcn(1, 22) /      0.00000000000000 /
      data refcn   (1, 22) /      0.00000000000000 /
      data refsys (1, 22) /    1 /
      data alphaiw(:,1, 22) /                                            &
     &      114.7243640,    99.7786920,    73.3046090,    37.5872700,   &
     &       22.0065650,    14.6330060,    10.6399730,     8.2278720,   &
     &        6.6441090,     5.5356020,     4.7202080,     4.0964710,   &
     &        3.2058500,     2.6004600,     2.1623770,     1.8313070,   &
     &        1.5731530,     1.1271400,     0.8480460,     0.5303920,   &
     &        0.3633330,     0.1787040,     0.1068890              /
! REF TiH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 22) /      0.38774830102792 /
      data refh    (2, 22) /     -0.19387415051397 /
      data gffq    (2, 22) /      0.32259167829296 /
      data gffh    (2, 22) /     -0.16129583914648 /
      data dftq    (2, 22) /      0.45792800000000 /
      data dfth    (2, 22) /     -0.22896250000000 /
      data pbcq    (2, 22) /      0.38774830102792 /
      data pbch    (2, 22) /     -0.19387415051397 /
      data clsq    (2, 22) /      0.32259167829296 /
      data clsh    (2, 22) /     -0.16129583914648 /
      data hcount  (2, 22) /      2.00000000000000 /
      data ascale  (2, 22) /      1.00000000000000 /
      data refcovcn(2, 22) /      1.62278979228613 /
      data refcn   (2, 22) /      1.82992898343369 /
      data refsys (2, 22) /    1 /
      data alphaiw(:,2, 22) /                                            &
     &       46.0919720,    42.4892580,    37.6213730,    28.0117340,   &
     &       20.8457830,    15.9626110,    12.6095600,    10.2373540,   &
     &        8.5034920,     7.1973670,     6.1869270,     5.3870300,   &
     &        4.2107080,     3.3956060,     2.8031890,     2.3567820,   &
     &        2.0108410,     1.4205320,     1.0576160,     0.6522060,   &
     &        0.4427770,     0.2149140,     0.1275310              /
! REF TiH4  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 22) /      0.97207546066293 /
      data refh    (3, 22) /     -0.24301886516573 /
      data gffq    (3, 22) /      0.53505953733387 /
      data gffh    (3, 22) /     -0.13376488433347 /
      data dftq    (3, 22) /      0.65603200000000 /
      data dfth    (3, 22) /     -0.16400650000000 /
      data pbcq    (3, 22) /      0.97207546066293 /
      data pbch    (3, 22) /     -0.24301886516573 /
      data clsq    (3, 22) /      0.53505953733387 /
      data clsh    (3, 22) /     -0.13376488433347 /
      data hcount  (3, 22) /      4.00000000000000 /
      data ascale  (3, 22) /      1.00000000000000 /
      data refcovcn(3, 22) /      3.43281247525220 /
      data refcn   (3, 22) /      3.86754432133472 /
      data refsys (3, 22) /    1 /
      data alphaiw(:,3, 22) /                                            &
     &       48.7114030,    47.2968810,    43.6774280,    34.4392690,   &
     &       26.5310300,    20.7154850,    16.5179260,    13.4481710,   &
     &       11.1565010,     9.4084180,     8.0473770,     6.9676210,   &
     &        5.3829550,     4.2933920,     3.5097360,     2.9257120,   &
     &        2.4779210,     1.7256070,     1.2717960,     0.7740440,   &
     &        0.5212220,     0.2500910,     0.1474550              /
      data refn(22) / 3 /
! REF V - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 23) /     -0.00000000016528 /
      data refh    (1, 23) /      0.00000000000000 /
      data gffq    (1, 23) /      0.00000000000000 /
      data gffh    (1, 23) /      0.00000000000000 /
      data dftq    (1, 23) /     -0.00000000016528 /
      data dfth    (1, 23) /      0.00000000000000 /
      data pbcq    (1, 23) /     -0.00000000016528 /
      data pbch    (1, 23) /      0.00000000000000 /
      data clsq    (1, 23) /      0.00000000000000 /
      data clsh    (1, 23) /      0.00000000000000 /
      data hcount  (1, 23) /      0.00000000000000 /
      data ascale  (1, 23) /      1.00000000000000 /
      data refcovcn(1, 23) /      0.00000000000000 /
      data refcn   (1, 23) /      0.00000000000000 /
      data refsys (1, 23) /    1 /
      data alphaiw(:,1, 23) /                                            &
     &      100.9910610,    88.6597800,    66.6115730,    35.5163660,   &
     &       21.2160720,    14.2442310,    10.4067670,     8.0678270,   &
     &        6.5248700,     5.4425580,     4.6458490,     4.0364450,   &
     &        3.1669610,     2.5767360,     2.1500770,     1.8277610,   &
     &        1.5763140,     1.1406790,     0.8660900,     0.5494430,   &
     &        0.3799770,     0.1891620,     0.1136620              /
! REF VH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 23) /      0.30616937051528 /
      data refh    (2, 23) /     -0.15308468525800 /
      data gffq    (2, 23) /      0.30538713298844 /
      data gffh    (2, 23) /     -0.15269356649422 /
      data dftq    (2, 23) /      0.44073500000000 /
      data dfth    (2, 23) /     -0.22036500000000 /
      data pbcq    (2, 23) /      0.30616937051528 /
      data pbch    (2, 23) /     -0.15308468525800 /
      data clsq    (2, 23) /      0.30538713298844 /
      data clsh    (2, 23) /     -0.15269356649422 /
      data hcount  (2, 23) /      2.00000000000000 /
      data ascale  (2, 23) /      1.00000000000000 /
      data refcovcn(2, 23) /      1.72211010302514 /
      data refcn   (2, 23) /      1.91379548691600 /
      data refsys (2, 23) /    1 /
      data alphaiw(:,2, 23) /                                            &
     &       44.7007430,    42.0873530,    37.1472140,    27.4044260,   &
     &       20.3770970,    15.6299000,    12.3710770,    10.0613500,   &
     &        8.3699050,     7.0937900,     6.1054940,     5.3225590,   &
     &        4.1705140,     3.3719800,     2.7915250,     2.3540000,   &
     &        2.0147100,     1.4344300,     1.0757290,     0.6710700,   &
     &        0.4591900,     0.2251960,     0.1341810              /
! REF VH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 23) /      0.39411696860531 /
      data refh    (3, 23) /     -0.13137232289128 /
      data gffq    (3, 23) /      0.39745931358650 /
      data gffh    (3, 23) /     -0.13248643786217 /
      data dftq    (3, 23) /      0.54271700000000 /
      data dfth    (3, 23) /     -0.18090200000000 /
      data pbcq    (3, 23) /      0.39411696860531 /
      data pbch    (3, 23) /     -0.13137232289128 /
      data clsq    (3, 23) /      0.39745931358650 /
      data clsh    (3, 23) /     -0.13248643786217 /
      data hcount  (3, 23) /      3.00000000000000 /
      data ascale  (3, 23) /      1.00000000000000 /
      data refcovcn(3, 23) /      2.62026342999598 /
      data refcn   (3, 23) /      2.91102328524604 /
      data refsys (3, 23) /    1 /
      data alphaiw(:,3, 23) /                                            &
     &       43.8589710,    41.9185700,    37.9612250,    29.4769420,   &
     &       22.6653000,    17.7162500,    14.1578990,    11.5615470,   &
     &        9.6256600,     8.1492470,     6.9989060,     6.0850100,   &
     &        4.7397660,     3.8101490,     3.1377770,     2.6337640,   &
     &        2.2450370,     1.5855880,     1.1821140,     0.7316980,   &
     &        0.4982510,     0.2427270,     0.1441100              /
      data refn(23) / 3 /
! REF Cr  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 24) /     -0.00000000000208 /
      data refh    (1, 24) /      0.00000000000000 /
      data gffq    (1, 24) /      0.00000000000000 /
      data gffh    (1, 24) /      0.00000000000000 /
      data dftq    (1, 24) /     -0.00000000000208 /
      data dfth    (1, 24) /      0.00000000000000 /
      data pbcq    (1, 24) /     -0.00000000000208 /
      data pbch    (1, 24) /      0.00000000000000 /
      data clsq    (1, 24) /      0.00000000000000 /
      data clsh    (1, 24) /      0.00000000000000 /
      data hcount  (1, 24) /      0.00000000000000 /
      data ascale  (1, 24) /      1.00000000000000 /
      data refcovcn(1, 24) /      0.00000000000000 /
      data refcn   (1, 24) /      0.00000000000000 /
      data refsys (1, 24) /    1 /
      data alphaiw(:,1, 24) /                                            &
     &       81.4204420,    70.3861320,    51.0334860,    26.6035920,   &
     &       16.4401450,    11.5586160,     8.7956620,     7.0404390,   &
     &        5.8344750,     4.9584520,     4.2948990,     3.7754900,   &
     &        3.0150310,     2.4847490,     2.0937350,     1.7938190,   &
     &        1.5570520,     1.1409650,     0.8747790,     0.5634010,   &
     &        0.3939510,     0.1991850,     0.1204340              /
! REF CrH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 24) /      0.53605366797202 /
      data refh    (2, 24) /     -0.26802683376243 /
      data gffq    (2, 24) /      0.17721817570715 /
      data gffh    (2, 24) /     -0.08860908785357 /
      data dftq    (2, 24) /      0.34570100000000 /
      data dfth    (2, 24) /     -0.17284850000000 /
      data pbcq    (2, 24) /      0.53605366797202 /
      data pbch    (2, 24) /     -0.26802683376243 /
      data clsq    (2, 24) /      0.17721817570715 /
      data clsh    (2, 24) /     -0.08860908785357 /
      data hcount  (2, 24) /      2.00000000000000 /
      data ascale  (2, 24) /      1.00000000000000 /
      data refcovcn(2, 24) /      1.65041632145300 /
      data refcn   (2, 24) /      1.82687247869787 /
      data refsys (2, 24) /    1 /
      data alphaiw(:,2, 24) /                                            &
     &       45.3318020,    42.4171170,    37.0714340,    26.9188730,   &
     &       19.8754030,    15.2233940,    12.0588400,     9.8211890,   &
     &        8.1820250,     6.9441660,     5.9847000,     5.2241990,   &
     &        4.1047330,     3.3284220,     2.7636460,     2.3373710,   &
     &        2.0062470,     1.4381260,     1.0851790,     0.6841550,   &
     &        0.4719940,     0.2343080,     0.1403490              /
! REF CrH12 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 24) /      0.32326600050791 /
      data refh    (3, 24) /     -0.02693883337566 /
      data gffq    (3, 24) /      0.16754955881404 /
      data gffh    (3, 24) /     -0.01396246323450 /
      data dftq    (3, 24) /      0.08030700000000 /
      data dfth    (3, 24) /     -0.00671033333333 /
      data pbcq    (3, 24) /      0.32326600050791 /
      data pbch    (3, 24) /     -0.02693883337566 /
      data clsq    (3, 24) /      0.16754955881404 /
      data clsh    (3, 24) /     -0.01396246323450 /
      data hcount  (3, 24) /     12.00000000000000 /
      data ascale  (3, 24) /      1.00000000000000 /
      data refcovcn(3, 24) /      9.59333666980809 /
      data refcn   (3, 24) /     10.61913477887437 /
      data refsys (3, 24) /    1 /
      data alphaiw(:,3, 24) /                                            &
     &       56.4761320,    55.4404440,    52.7176090,    45.1454930,   &
     &       37.6466880,    31.2740070,    26.0862050,    21.9197000,   &
     &       18.5802620,    15.8937900,    13.7180050,    11.9412500,   &
     &        9.2607000,     7.3778240,     6.0116860,     4.9917560,   &
     &        4.2112130,     2.9083100,     2.1307140,     1.2874000,   &
     &        0.8631570,     0.4110260,     0.2406390              /
! REF CrO6C6  - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 24) /      0.17434704722335 /
      data refh    (4, 24) /     -0.12895656365437 /
      data gffq    (4, 24) /      0.61467776168125 /
      data gffh    (4, 24) /     -0.19615593415441 /
      data dftq    (4, 24) /      0.00077600000000 /
      data dfth    (4, 24) /     -0.10629100000000 /
      data pbcq    (4, 24) /      0.17434704722335 /
      data pbch    (4, 24) /     -0.12895656365437 /
      data clsq    (4, 24) /      0.61467776168125 /
      data clsh    (4, 24) /     -0.19615593415441 /
      data hcount  (4, 24) /      6.00000000000000 /
      data ascale  (4, 24) /      1.00000000000000 /
      data refcovcn(4, 24) /      5.09941611449080 /
      data refcn   (4, 24) /      6.07975116715200 /
      data refsys (4, 24) /    8 /
      data alphaiw(:,4, 24) /                                            &
     &      119.6067900,   117.3611800,   111.4540000,    95.2456700,   &
     &       79.7390500,    66.9517800,    56.7007000,    48.4921200,   &
     &       41.8757900,    36.4928900,    32.0685600,    28.3948300,   &
     &       22.7080700,    18.5713200,    15.4707700,    13.0875400,   &
     &       11.2163200,     7.9816700,     5.9708100,     3.7056100,   &
     &        2.5262500,     1.2328500,     0.7325600              /
      data refn(24) / 4 /
! REF Mn  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 25) /      0.00000000016527 /
      data refh    (1, 25) /      0.00000000000000 /
      data gffq    (1, 25) /      0.00000000000000 /
      data gffh    (1, 25) /      0.00000000000000 /
      data dftq    (1, 25) /      0.00000000016527 /
      data dfth    (1, 25) /      0.00000000000000 /
      data pbcq    (1, 25) /      0.00000000016527 /
      data pbch    (1, 25) /      0.00000000000000 /
      data clsq    (1, 25) /      0.00000000000000 /
      data clsh    (1, 25) /      0.00000000000000 /
      data hcount  (1, 25) /      0.00000000000000 /
      data ascale  (1, 25) /      1.00000000000000 /
      data refcovcn(1, 25) /      0.00000000000000 /
      data refcn   (1, 25) /      0.00000000000000 /
      data refsys (1, 25) /    1 /
      data alphaiw(:,1, 25) /                                            &
     &       82.1201120,    73.0648270,    56.5578050,    31.8457630,   &
     &       19.5848590,    13.3420540,     9.8197330,     7.6416120,   &
     &        6.1931620,     5.1733980,     4.4221950,     3.8482630,   &
     &        3.0320160,     2.4803430,     2.0824750,     1.7818650,   &
     &        1.5468520,     1.1371080,     0.8757490,     0.5688430,   &
     &        0.4003450,     0.2041230,     0.1236650              /
! REF MnH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 25) /      0.72906319569053 /
      data refh    (2, 25) /     -0.36453159786085 /
      data gffq    (2, 25) /      0.26888428905691 /
      data gffh    (2, 25) /     -0.13444214452845 /
      data dftq    (2, 25) /      0.46128400000000 /
      data dfth    (2, 25) /     -0.23064400000000 /
      data pbcq    (2, 25) /      0.72906319569053 /
      data pbch    (2, 25) /     -0.36453159786085 /
      data clsq    (2, 25) /      0.26888428905691 /
      data clsh    (2, 25) /     -0.13444214452845 /
      data hcount  (2, 25) /      2.00000000000000 /
      data ascale  (2, 25) /      1.00000000000000 /
      data refcovcn(2, 25) /      1.45861721080984 /
      data refcn   (2, 25) /      1.64060352754295 /
      data refsys (2, 25) /    1 /
      data alphaiw(:,2, 25) /                                            &
     &       37.5942320,    36.5102540,    33.7065530,    26.3778710,   &
     &       20.0194940,    15.4093840,    12.1689910,     9.8609100,   &
     &        8.1746400,     6.9089940,     5.9348110,     5.1678620,   &
     &        4.0486360,     3.2798880,     2.7243850,     2.3069400,   &
     &        1.9834830,     1.4290960,     1.0840060,     0.6895570,   &
     &        0.4788650,     0.2397600,     0.1439400              /
! REF MnH11 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 25) /     -1.38551400320441 /
      data refh    (3, 25) /      0.12595581847313 /
      data gffq    (3, 25) /     -0.01438794807264 /
      data gffh    (3, 25) /      0.00130799527933 /
      data dftq    (3, 25) /      0.06015500000000 /
      data dfth    (3, 25) /     -0.00551827272727 /
      data pbcq    (3, 25) /     -1.38551400320441 /
      data pbch    (3, 25) /      0.12595581847313 /
      data clsq    (3, 25) /     -0.01438794807264 /
      data clsh    (3, 25) /      0.00130799527933 /
      data hcount  (3, 25) /     11.00000000000000 /
      data ascale  (3, 25) /      1.00000000000000 /
      data refcovcn(3, 25) /      8.78012041793345 /
      data refcn   (3, 25) /      9.88490304290262 /
      data refsys (3, 25) /    1 /
      data alphaiw(:,3, 25) /                                            &
     &       48.8093290,    48.0980790,    46.1748290,    40.4031130,   &
     &       34.1760690,    28.6218290,    23.9924040,    20.2296980,   &
     &       17.1934700,    14.7402990,    12.7472650,    11.1157910,   &
     &        8.6475930,     6.9086080,     5.6437710,     4.6974660,   &
     &        3.9718750,     2.7571320,     2.0290510,     1.2349290,   &
     &        0.8324270,     0.3994510,     0.2345940              /
      data refn(25) / 3 /
! REF Fe  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 26) /      0.00000000032847 /
      data refh    (1, 26) /      0.00000000000000 /
      data gffq    (1, 26) /      0.00000000000000 /
      data gffh    (1, 26) /      0.00000000000000 /
      data dftq    (1, 26) /      0.00000000032847 /
      data dfth    (1, 26) /      0.00000000000000 /
      data pbcq    (1, 26) /      0.00000000032847 /
      data pbch    (1, 26) /      0.00000000000000 /
      data clsq    (1, 26) /      0.00000000000000 /
      data clsh    (1, 26) /      0.00000000000000 /
      data hcount  (1, 26) /      0.00000000000000 /
      data ascale  (1, 26) /      1.00000000000000 /
      data refcovcn(1, 26) /      0.00000000000000 /
      data refcn   (1, 26) /      0.00000000000000 /
      data refsys (1, 26) /    1 /
      data alphaiw(:,1, 26) /                                            &
     &       65.1578920,    57.4961000,    43.3419800,    23.8760970,   &
     &       15.1156130,    10.7673250,     8.2713540,     6.6686050,   &
     &        5.5550430,     4.7375840,     4.1131870,     3.6217190,   &
     &        2.8999580,     2.3973090,     2.0280480,     1.7456620,   &
     &        1.5229730,     1.1305990,     0.8773050,     0.5763700,   &
     &        0.4092270,     0.2118590,     0.1294110              /
! REF FeH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 26) /      0.89971373287199 /
      data refh    (2, 26) /     -0.44985686643599 /
      data gffq    (2, 26) /      0.16108330144470 /
      data gffh    (2, 26) /     -0.08054165072235 /
      data dftq    (2, 26) /      0.42463700000000 /
      data dfth    (2, 26) /     -0.21232300000000 /
      data pbcq    (2, 26) /      0.89971373287199 /
      data pbch    (2, 26) /     -0.44985686643599 /
      data clsq    (2, 26) /      0.16108330144470 /
      data clsh    (2, 26) /     -0.08054165072235 /
      data hcount  (2, 26) /      2.00000000000000 /
      data ascale  (2, 26) /      1.00000000000000 /
      data refcovcn(2, 26) /      1.52985788829933 /
      data refcn   (2, 26) /      1.64827170778593 /
      data refsys (2, 26) /    1 /
      data alphaiw(:,2, 26) /                                            &
     &       34.5401790,    33.5667420,    31.1228640,    24.7676090,   &
     &       19.0811590,    14.8373870,    11.7962700,     9.6020150,   &
     &        7.9844480,     6.7625510,     5.8177240,     5.0715270,   &
     &        3.9797330,     3.2288080,     2.6862250,     2.2786720,   &
     &        1.9629540,     1.4214720,     1.0834860,     0.6950870,   &
     &        0.4860810,     0.2464070,     0.1489560              /
! REF FeH10 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 26) /     -0.19729168662166 /
      data refh    (3, 26) /      0.01972916866217 /
      data gffq    (3, 26) /      0.05493242513468 /
      data gffh    (3, 26) /     -0.00549324251347 /
      data dftq    (3, 26) /      0.02104900000000 /
      data dfth    (3, 26) /     -0.00211300000000 /
      data pbcq    (3, 26) /     -0.19729168662166 /
      data pbch    (3, 26) /      0.01972916866217 /
      data clsq    (3, 26) /      0.05493242513468 /
      data clsh    (3, 26) /     -0.00549324251347 /
      data hcount  (3, 26) /     10.00000000000000 /
      data ascale  (3, 26) /      1.00000000000000 /
      data refcovcn(3, 26) /      8.47495927159456 /
      data refcn   (3, 26) /      9.13759391858428 /
      data refsys (3, 26) /    1 /
      data alphaiw(:,3, 26) /                                            &
     &       45.9056800,    45.2093150,    43.3396340,    37.7811330,   &
     &       31.8440890,    26.6022340,    22.2699010,    18.7694260,   &
     &       15.9553430,    13.6865850,    11.8454300,    10.3389430,   &
     &        8.0596090,     6.4524730,     5.2822830,     4.4057560,   &
     &        3.7328380,     2.6038570,     1.9248540,     1.1805840,   &
     &        0.8007680,     0.3884140,     0.2295320              /
      data refn(26) / 3 /
! REF Co  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 27) /      0.00000000016425 /
      data refh    (1, 27) /      0.00000000000000 /
      data gffq    (1, 27) /      0.00000000000000 /
      data gffh    (1, 27) /      0.00000000000000 /
      data dftq    (1, 27) /      0.00000000016425 /
      data dfth    (1, 27) /      0.00000000000000 /
      data pbcq    (1, 27) /      0.00000000016425 /
      data pbch    (1, 27) /      0.00000000000000 /
      data clsq    (1, 27) /      0.00000000000000 /
      data clsh    (1, 27) /      0.00000000000000 /
      data hcount  (1, 27) /      0.00000000000000 /
      data ascale  (1, 27) /      1.00000000000000 /
      data refcovcn(1, 27) /      0.00000000000000 /
      data refcn   (1, 27) /      0.00000000000000 /
      data refsys (1, 27) /    1 /
      data alphaiw(:,1, 27) /                                            &
     &       60.7910330,    56.2385650,    46.3237860,    28.3000530,   &
     &       18.0784830,    12.5506200,     9.3329520,     7.3060380,   &
     &        5.9416390,     4.9729450,     4.2552790,     3.7050500,   &
     &        2.9212400,     2.3925770,     2.0131210,     1.7278630,   &
     &        1.5057010,     1.1191290,     0.8715490,     0.5771900,   &
     &        0.4126650,     0.2164470,     0.1333190              /
! REF CoH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 27) /      0.33885435041789 /
      data refh    (2, 27) /     -0.16942717520775 /
      data gffq    (2, 27) /      0.21568151580380 /
      data gffh    (2, 27) /     -0.10784075790190 /
      data dftq    (2, 27) /      0.35760200000000 /
      data dfth    (2, 27) /     -0.17879750000000 /
      data pbcq    (2, 27) /      0.33885435041789 /
      data pbch    (2, 27) /     -0.16942717520775 /
      data clsq    (2, 27) /      0.21568151580380 /
      data clsh    (2, 27) /     -0.10784075790190 /
      data hcount  (2, 27) /      2.00000000000000 /
      data ascale  (2, 27) /      1.00000000000000 /
      data refcovcn(2, 27) /      1.60281178943204 /
      data refcn   (2, 27) /      1.71485433521559 /
      data refsys (2, 27) /    1 /
      data alphaiw(:,2, 27) /                                            &
     &       33.6766540,    32.2795850,    29.8110510,    23.6860370,   &
     &       18.3057380,    14.2980140,    11.4150610,     9.3244580,   &
     &        7.7757940,     6.6008390,     5.6888800,     4.9663640,   &
     &        3.9055760,     3.1737960,     2.6443420,     2.2465040,   &
     &        1.9383190,     1.4096790,     1.0792130,     0.6978430,   &
     &        0.4912380,     0.2521090,     0.1535920              /
! REF CoH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 27) /      0.06673726946889 /
      data refh    (3, 27) /     -0.02224575648940 /
      data gffq    (3, 27) /      0.20590049778110 /
      data gffh    (3, 27) /     -0.06863349926037 /
      data dftq    (3, 27) /      0.23613400000000 /
      data dfth    (3, 27) /     -0.07871533333333 /
      data pbcq    (3, 27) /      0.06673726946889 /
      data pbch    (3, 27) /     -0.02224575648940 /
      data clsq    (3, 27) /      0.20590049778110 /
      data clsh    (3, 27) /     -0.06863349926037 /
      data hcount  (3, 27) /      3.00000000000000 /
      data ascale  (3, 27) /      1.00000000000000 /
      data refcovcn(3, 27) /      2.73732238386544 /
      data refcn   (3, 27) /      2.92629831246542 /
      data refsys (3, 27) /    1 /
      data alphaiw(:,3, 27) /                                            &
     &       33.0681610,    31.8814040,    29.3779300,    23.6057900,   &
     &       18.6463550,    14.9145580,    12.1627890,    10.1071300,   &
     &        8.5395170,     7.3190970,     6.3509310,     5.5699740,   &
     &        4.4005400,     3.5786790,     2.9775460,     2.5232770,   &
     &        2.1705940,     1.5662690,     1.1907560,     0.7619390,   &
     &        0.5325880,     0.2706440,     0.1640920              /
! REF CoH9  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 27) /     -0.99922236892552 /
      data refh    (4, 27) /      0.11102470765839 /
      data gffq    (4, 27) /     -0.01577894818610 /
      data gffh    (4, 27) /      0.00175321646512 /
      data dftq    (4, 27) /     -0.01502600000000 /
      data dfth    (4, 27) /      0.00166588888889 /
      data pbcq    (4, 27) /     -0.99922236892552 /
      data pbch    (4, 27) /      0.11102470765839 /
      data clsq    (4, 27) /     -0.01577894818610 /
      data clsh    (4, 27) /      0.00175321646512 /
      data hcount  (4, 27) /      9.00000000000000 /
      data ascale  (4, 27) /      1.00000000000000 /
      data refcovcn(4, 27) /      7.27710111777824 /
      data refcn   (4, 27) /      7.77854420648529 /
      data refsys (4, 27) /    1 /
      data alphaiw(:,4, 27) /                                            &
     &       44.7198600,    43.9726200,    41.9679160,    36.1202890,   &
     &       30.0864670,    24.9191710,    20.7437800,    17.4226860,   &
     &       14.7811930,    12.6668970,    10.9594050,     9.5668070,   &
     &        7.4655900,     5.9866860,     4.9103160,     4.1038230,   &
     &        3.4842290,     2.4429010,     1.8145610,     1.1222760,   &
     &        0.7664210,     0.3762730,     0.2239990              /
      data refn(27) / 4 /
! REF Ni  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 28) /      0.00000000000000 /
      data refh    (1, 28) /      0.00000000000000 /
      data gffq    (1, 28) /      0.00000000000000 /
      data gffh    (1, 28) /      0.00000000000000 /
      data dftq    (1, 28) /      0.00000000000000 /
      data dfth    (1, 28) /      0.00000000000000 /
      data pbcq    (1, 28) /      0.00000000000000 /
      data pbch    (1, 28) /      0.00000000000000 /
      data clsq    (1, 28) /      0.00000000000000 /
      data clsh    (1, 28) /      0.00000000000000 /
      data hcount  (1, 28) /      0.00000000000000 /
      data ascale  (1, 28) /      1.00000000000000 /
      data refcovcn(1, 28) /      0.00000000000000 /
      data refcn   (1, 28) /      0.00000000000000 /
      data refsys (1, 28) /    1 /
      data alphaiw(:,1, 28) /                                            &
     &       65.1471670,    59.7497700,    48.4286590,    28.5849020,   &
     &       17.8269450,    12.1955640,     8.9866060,     6.9942690,   &
     &        5.6675310,     4.7335770,     4.0463770,     3.5223700,   &
     &        2.7801490,     2.2820840,     1.9256220,     1.6580700,   &
     &        1.4498280,     1.0871500,     0.8537840,     0.5733100,   &
     &        0.4140840,     0.2208130,     0.1373770              /
! REF NiH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 28) /     -0.02893652047483 /
      data refh    (2, 28) /      0.01446826035503 /
      data gffq    (2, 28) /      0.09850839901243 /
      data gffh    (2, 28) /     -0.04925419950621 /
      data dftq    (2, 28) /      0.27996500000000 /
      data dfth    (2, 28) /     -0.13998200000000 /
      data pbcq    (2, 28) /     -0.02893652047483 /
      data pbch    (2, 28) /      0.01446826035503 /
      data clsq    (2, 28) /      0.09850839901243 /
      data clsh    (2, 28) /     -0.04925419950621 /
      data hcount  (2, 28) /      2.00000000000000 /
      data ascale  (2, 28) /      1.00000000000000 /
      data refcovcn(2, 28) /      1.68368353980441 /
      data refcn   (2, 28) /      1.79373527663037 /
      data refsys (2, 28) /    1 /
      data alphaiw(:,2, 28) /                                            &
     &       33.2010460,    31.9092910,    29.3670970,    23.1912300,   &
     &       17.8686070,    13.9453180,    11.1368280,     9.1041990,   &
     &        7.5992180,     6.4570670,     5.5699260,     4.8664170,   &
     &        3.8320980,     3.1174810,     2.6000250,     2.2111480,   &
     &        1.9099840,     1.3937010,     1.0709720,     0.6975870,   &
     &        0.4941560,     0.2566390,     0.1576070              /
! REF NiH8  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 28) /     -1.41046704887049 /
      data refh    (3, 28) /      0.17630838110881 /
      data gffq    (3, 28) /      0.02948298358915 /
      data gffh    (3, 28) /     -0.00368537294864 /
      data dftq    (3, 28) /     -0.01765800000000 /
      data dfth    (3, 28) /      0.00222650000000 /
      data pbcq    (3, 28) /     -1.41046704887049 /
      data pbch    (3, 28) /      0.17630838110881 /
      data clsq    (3, 28) /      0.02948298358915 /
      data clsh    (3, 28) /     -0.00368537294864 /
      data hcount  (3, 28) /      8.00000000000000 /
      data ascale  (3, 28) /      1.00000000000000 /
      data refcovcn(3, 28) /      6.15501721386632 /
      data refcn   (3, 28) /      6.54584816193237 /
      data refsys (3, 28) /    1 /
      data alphaiw(:,3, 28) /                                            &
     &       43.8557940,    42.9928330,    40.7502500,    34.4926310,   &
     &       28.3244810,    23.2253070,    19.2045670,    16.0592920,   &
     &       13.5864050,    11.6233040,    10.0473580,     8.7676580,   &
     &        6.8450210,     5.4965520,     4.5167510,     3.7830110,   &
     &        3.2192030,     2.2703070,     1.6957880,     1.0589930,   &
     &        0.7288230,     0.3627090,     0.2177520              /
! REF NiH8  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 28) /     -1.49873637367920 /
      data refh    (4, 28) /      0.18734204670990 /
      data gffq    (4, 28) /      0.02439689318964 /
      data gffh    (4, 28) /     -0.00304961164871 /
      data dftq    (4, 28) /     -0.09074300000000 /
      data dfth    (4, 28) /      0.01131500000000 /
      data pbcq    (4, 28) /     -1.49873637367920 /
      data pbch    (4, 28) /      0.18734204670990 /
      data clsq    (4, 28) /      0.02439689318964 /
      data clsh    (4, 28) /     -0.00304961164871 /
      data hcount  (4, 28) /      8.00000000000000 /
      data ascale  (4, 28) /      1.00000000000000 /
      data refcovcn(4, 28) /      5.91752241519496 /
      data refcn   (4, 28) /      6.29178843690998 /
      data refsys (4, 28) /    1 /
      data alphaiw(:,4, 28) /                                            &
     &       46.9971430,    45.7683980,    42.6546550,    34.8257600,   &
     &       28.0599290,    22.8623880,    18.8881430,    15.8119240,   &
     &       13.3988200,    11.4815020,     9.9393620,     8.6844580,   &
     &        6.7937410,     5.4634420,     4.4945350,     3.7676420,   &
     &        3.2083130,     2.2653470,     1.6933670,     1.0583620,   &
     &        0.7286770,     0.3627700,     0.2178100              /
      data refn(28) / 4 /
! REF Cu  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 29) /     -0.00000000000000 /
      data refh    (1, 29) /      0.00000000000000 /
      data gffq    (1, 29) /      0.00000000000000 /
      data gffh    (1, 29) /      0.00000000000000 /
      data dftq    (1, 29) /     -0.00000000000000 /
      data dfth    (1, 29) /      0.00000000000000 /
      data pbcq    (1, 29) /     -0.00000000000000 /
      data pbch    (1, 29) /      0.00000000000000 /
      data clsq    (1, 29) /      0.00000000000000 /
      data clsh    (1, 29) /      0.00000000000000 /
      data hcount  (1, 29) /      0.00000000000000 /
      data ascale  (1, 29) /      1.00000000000000 /
      data refcovcn(1, 29) /      0.00000000000000 /
      data refcn   (1, 29) /      0.00000000000000 /
      data refsys (1, 29) /    1 /
      data alphaiw(:,1, 29) /                                            &
     &       51.7659850,    46.4291690,    36.0204980,    20.5952700,   &
     &       13.2155350,     9.4590740,     7.2960120,     5.9145750,   &
     &        4.9593020,     4.2583130,     3.7208220,     3.2950100,   &
     &        2.6629290,     2.2171860,     1.8871890,     1.6338740,   &
     &        1.4337810,     1.0804860,     0.8509580,     0.5739100,   &
     &        0.4162210,     0.2239360,     0.1401690              /
! REF CuH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 29) /      0.17543548776664 /
      data refh    (2, 29) /     -0.17543548776665 /
      data gffq    (2, 29) /      0.05450628884215 /
      data gffh    (2, 29) /     -0.05450628884215 /
      data dftq    (2, 29) /      0.10146900000000 /
      data dfth    (2, 29) /     -0.10146900000000 /
      data pbcq    (2, 29) /      0.17543548776664 /
      data pbch    (2, 29) /     -0.17543548776665 /
      data clsq    (2, 29) /      0.05450628884215 /
      data clsh    (2, 29) /     -0.05450628884215 /
      data hcount  (2, 29) /      1.00000000000000 /
      data ascale  (2, 29) /      1.00000000000000 /
      data refcovcn(2, 29) /      0.89816244646957 /
      data refcn   (2, 29) /      0.95762492307496 /
      data refsys (2, 29) /    1 /
      data alphaiw(:,2, 29) /                                            &
     &       32.2640590,    30.7643190,    27.3346460,    19.9931860,   &
     &       14.6605450,    11.1745880,     8.8578670,     7.2504740,   &
     &        6.0856020,     5.2091410,     4.5290430,     3.9879440,   &
     &        3.1856560,     2.6238350,     2.2117070,     1.8983580,   &
     &        1.6531670,     1.2266060,     0.9549290,     0.6340400,   &
     &        0.4552650,     0.2415160,     0.1500870              /
      data refn(29) / 2 /
! REF Zn  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 30) /      0.00000000000000 /
      data refh    (1, 30) /      0.00000000000000 /
      data gffq    (1, 30) /      0.00000000000000 /
      data gffh    (1, 30) /      0.00000000000000 /
      data dftq    (1, 30) /      0.00000000000000 /
      data dfth    (1, 30) /      0.00000000000000 /
      data pbcq    (1, 30) /      0.00000000000000 /
      data pbch    (1, 30) /      0.00000000000000 /
      data clsq    (1, 30) /      0.00000000000000 /
      data clsh    (1, 30) /      0.00000000000000 /
      data hcount  (1, 30) /      0.00000000000000 /
      data ascale  (1, 30) /      1.00000000000000 /
      data refcovcn(1, 30) /      0.00000000000000 /
      data refcn   (1, 30) /      0.00000000000000 /
      data refsys (1, 30) /    1 /
      data alphaiw(:,1, 30) /                                            &
     &       44.8764280,    42.4015380,    36.5011020,    24.0580460,   &
     &       15.9961690,    11.3275720,     8.5125980,     6.7050110,   &
     &        5.4750510,     4.5962800,     3.9426060,     3.4399690,   &
     &        2.7216070,     2.2355020,     1.8860970,     1.6235520,   &
     &        1.4194560,     1.0657210,     0.8398960,     0.5698780,   &
     &        0.4161790,     0.2271770,     0.1438000              /
! REF ZnH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 30) /      0.22218813097830 /
      data refh    (2, 30) /     -0.11109406548915 /
      data gffq    (2, 30) /      0.25796918840353 /
      data gffh    (2, 30) /     -0.12898459420177 /
      data dftq    (2, 30) /      0.33446100000000 /
      data dfth    (2, 30) /     -0.16722700000000 /
      data pbcq    (2, 30) /      0.22218813097830 /
      data pbch    (2, 30) /     -0.11109406548915 /
      data clsq    (2, 30) /      0.25796918840353 /
      data clsh    (2, 30) /     -0.12898459420177 /
      data hcount  (2, 30) /      2.00000000000000 /
      data ascale  (2, 30) /      1.00000000000000 /
      data refcovcn(2, 30) /      1.75336283145604 /
      data refcn   (2, 30) /      1.94189578186459 /
      data refsys (2, 30) /    1 /
      data alphaiw(:,2, 30) /                                            &
     &       29.2304490,    28.6434220,    27.0389880,    22.2870810,   &
     &       17.5546960,    13.8059590,    11.0322270,     8.9976380,   &
     &        7.4858160,     6.3399040,     5.4528720,     4.7523760,   &
     &        3.7286630,     3.0264940,     2.5210460,     2.1430610,   &
     &        1.8515770,     1.3547510,     1.0459910,     0.6893360,   &
     &        0.4939420,     0.2624940,     0.1638640              /
      data refn(30) / 2 /
! REF Ga  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 31) /     -0.00000000000001 /
      data refh    (1, 31) /      0.00000000000000 /
      data gffq    (1, 31) /      0.00000000000000 /
      data gffh    (1, 31) /      0.00000000000000 /
      data dftq    (1, 31) /     -0.00000000000001 /
      data dfth    (1, 31) /      0.00000000000000 /
      data pbcq    (1, 31) /     -0.00000000000001 /
      data pbch    (1, 31) /      0.00000000000000 /
      data clsq    (1, 31) /      0.00000000000000 /
      data clsh    (1, 31) /      0.00000000000000 /
      data hcount  (1, 31) /      0.00000000000000 /
      data ascale  (1, 31) /      1.00000000000000 /
      data refcovcn(1, 31) /      0.00000000000000 /
      data refcn   (1, 31) /      0.00000000000000 /
      data refsys (1, 31) /    1 /
      data alphaiw(:,1, 31) /                                            &
     &       56.2798430,    51.9167870,    43.2310870,    28.1416200,   &
     &       18.8462820,    13.2994650,     9.8600450,     7.6193980,   &
     &        6.0894620,     5.0007640,     4.1981820,     3.5884760,   &
     &        2.7347440,     2.1738840,     1.7818110,     1.4944090,   &
     &        1.2758120,     0.9086190,     0.6839730,     0.4300690,   &
     &        0.2959040,     0.1458990,     0.0867970              /
! REF GaH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 31) /      0.30692560030675 /
      data refh    (2, 31) /     -0.30692560030675 /
      data gffq    (2, 31) /      0.02870304944818 /
      data gffh    (2, 31) /     -0.02870304944818 /
      data dftq    (2, 31) /      0.04558400000000 /
      data dfth    (2, 31) /     -0.04558400000000 /
      data pbcq    (2, 31) /      0.30692560030675 /
      data pbch    (2, 31) /     -0.30692560030675 /
      data clsq    (2, 31) /      0.02870304944818 /
      data clsh    (2, 31) /     -0.02870304944818 /
      data hcount  (2, 31) /      1.00000000000000 /
      data ascale  (2, 31) /      1.00000000000000 /
      data refcovcn(2, 31) /      0.88820287155353 /
      data refcn   (2, 31) /      0.96005556460526 /
      data refsys (2, 31) /    1 /
      data alphaiw(:,2, 31) /                                            &
     &       53.3046110,    49.9067250,    42.6926500,    29.2253470,   &
     &       20.4243950,    14.8882280,    11.2916180,     8.8592270,   &
     &        7.1500550,     5.9073300,     4.9763880,     4.2607350,   &
     &        3.2471250,     2.5751450,     2.1036730,     1.7579590,   &
     &        1.4954520,     1.0567390,     0.7907280,     0.4933050,   &
     &        0.3378040,     0.1654770,     0.0980990              /
! REF GaH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 31) /      0.25583231785442 /
      data refh    (3, 31) /     -0.12791615892721 /
      data gffq    (3, 31) /      0.04511416923234 /
      data gffh    (3, 31) /     -0.02255708461617 /
      data dftq    (3, 31) /      0.23997400000000 /
      data dfth    (3, 31) /     -0.11998000000000 /
      data pbcq    (3, 31) /      0.25583231785442 /
      data pbch    (3, 31) /     -0.12791615892721 /
      data clsq    (3, 31) /      0.04511416923234 /
      data clsh    (3, 31) /     -0.02255708461617 /
      data hcount  (3, 31) /      2.00000000000000 /
      data ascale  (3, 31) /      1.00000000000000 /
      data refcovcn(3, 31) /      1.78721228422408 /
      data refcn   (3, 31) /      1.93153571165990 /
      data refsys (3, 31) /    1 /
      data alphaiw(:,3, 31) /                                            &
     &       40.6953470,    38.6598060,    34.9271010,    27.0292080,   &
     &       20.5104160,    15.7311360,    12.3171900,     9.8626390,   &
     &        8.0655210,     6.7210170,     5.6931530,     4.8912630,   &
     &        3.7391050,     2.9659310,     2.4200560,     2.0186870,   &
     &        1.7137410,     1.2049770,     0.8979620,     0.5570650,   &
     &        0.3801550,     0.1853670,     0.1096290              /
      data refn(31) / 3 /
! REF Ge  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 32) /     -0.00000000000001 /
      data refh    (1, 32) /      0.00000000000000 /
      data gffq    (1, 32) /      0.00000000000000 /
      data gffh    (1, 32) /      0.00000000000000 /
      data dftq    (1, 32) /     -0.00000000000001 /
      data dfth    (1, 32) /      0.00000000000000 /
      data pbcq    (1, 32) /     -0.00000000000001 /
      data pbch    (1, 32) /      0.00000000000000 /
      data clsq    (1, 32) /      0.00000000000000 /
      data clsh    (1, 32) /      0.00000000000000 /
      data hcount  (1, 32) /      0.00000000000000 /
      data ascale  (1, 32) /      1.00000000000000 /
      data refcovcn(1, 32) /      0.00000000000000 /
      data refcn   (1, 32) /      0.00000000000000 /
      data refsys (1, 32) /    1 /
      data alphaiw(:,1, 32) /                                            &
     &       41.6184280,    39.9833160,    35.9872960,    26.6103970,   &
     &       19.2286830,    14.1743150,    10.7638470,     8.4179500,   &
     &        6.7587960,     5.5514820,     4.6493180,     3.9588270,   &
     &        2.9887560,     2.3535080,     1.9131390,     1.5937360,   &
     &        1.3534810,     0.9566170,     0.7184900,     0.4529630,   &
     &        0.3132500,     0.1561230,     0.0935260              /
! REF GeH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 32) /      0.15565415602155 /
      data refh    (2, 32) /     -0.15565415602155 /
      data gffq    (2, 32) /      0.00938786608492 /
      data gffh    (2, 32) /     -0.00938786608492 /
      data dftq    (2, 32) /      0.11484500000000 /
      data dfth    (2, 32) /     -0.11484500000000 /
      data pbcq    (2, 32) /      0.15565415602155 /
      data pbch    (2, 32) /     -0.15565415602155 /
      data clsq    (2, 32) /      0.00938786608492 /
      data clsh    (2, 32) /     -0.00938786608492 /
      data hcount  (2, 32) /      1.00000000000000 /
      data ascale  (2, 32) /      1.00000000000000 /
      data refcovcn(2, 32) /      0.89941149965103 /
      data refcn   (2, 32) /      0.94335166609313 /
      data refsys (2, 32) /    1 /
      data alphaiw(:,2, 32) /                                            &
     &       40.4520440,    39.0264160,    35.5809840,    27.3666530,   &
     &       20.5342330,    15.5791490,    12.0769830,     9.5821540,   &
     &        7.7708270,     6.4264770,     5.4066710,     4.6170600,   &
     &        3.4943900,     2.7511970,     2.2328710,     1.8558220,   &
     &        1.5719620,     1.1037790,     0.8243160,     0.5154070,   &
     &        0.3545620,     0.1754620,     0.1047250              /
! REF GeH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 32) /      0.19489066035080 /
      data refh    (3, 32) /     -0.09744533017540 /
      data gffq    (3, 32) /     -0.00592798448224 /
      data gffh    (3, 32) /      0.00296399224112 /
      data dftq    (3, 32) /      0.06815900000000 /
      data dfth    (3, 32) /     -0.03407600000000 /
      data pbcq    (3, 32) /      0.19489066035080 /
      data pbch    (3, 32) /     -0.09744533017540 /
      data clsq    (3, 32) /     -0.00592798448224 /
      data clsh    (3, 32) /      0.00296399224112 /
      data hcount  (3, 32) /      2.00000000000000 /
      data ascale  (3, 32) /      1.00000000000000 /
      data refcovcn(3, 32) /      1.85525243419195 /
      data refcn   (3, 32) /      1.94465170362984 /
      data refsys (3, 32) /    1 /
      data alphaiw(:,3, 32) /                                            &
     &       40.4418220,    39.2545360,    36.2478860,    28.6222220,   &
     &       21.9792320,    16.9925560,    13.3626540,    10.7138950,   &
     &        8.7539710,     7.2776830,     6.1448790,     5.2599430,   &
     &        3.9900180,     3.1421830,     2.5480020,     2.1146930,   &
     &        1.7881720,     1.2499950,     0.9298180,     0.5780120,   &
     &        0.3961690,     0.1950880,     0.1161420              /
! REF GeH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 32) /      0.07796365954007 /
      data refh    (4, 32) /     -0.02598788651336 /
      data gffq    (4, 32) /     -0.03161585463110 /
      data gffh    (4, 32) /      0.01053861821037 /
      data dftq    (4, 32) /      0.15846000000000 /
      data dfth    (4, 32) /     -0.05282400000000 /
      data pbcq    (4, 32) /      0.07796365954007 /
      data pbch    (4, 32) /     -0.02598788651336 /
      data clsq    (4, 32) /     -0.03161585463110 /
      data clsh    (4, 32) /      0.01053861821037 /
      data hcount  (4, 32) /      3.00000000000000 /
      data ascale  (4, 32) /      1.00000000000000 /
      data refcovcn(4, 32) /      2.78448725734282 /
      data refcn   (4, 32) /      2.91863046426809 /
      data refsys (4, 32) /    1 /
      data alphaiw(:,4, 32) /                                            &
     &       37.6716300,    36.8525860,    34.6926590,    28.6826580,   &
     &       22.8485090,    18.1179570,    14.4936950,    11.7568160,   &
     &        9.6831810,     8.0946770,     6.8606380,     5.8877070,   &
     &        4.4784020,     3.5295510,     2.8613170,     2.3726930,   &
     &        2.0040290,     1.3963730,     1.0356150,     0.6409590,   &
     &        0.4381220,     0.2150380,     0.1278320              /
! REF GeH4  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (5, 32) /      0.08330185602714 /
      data refh    (5, 32) /     -0.02082546400679 /
      data gffq    (5, 32) /     -0.06445558548675 /
      data gffh    (5, 32) /      0.01611389637169 /
      data dftq    (5, 32) /      0.22355800000000 /
      data dfth    (5, 32) /     -0.05588500000000 /
      data pbcq    (5, 32) /      0.08330185602714 /
      data pbch    (5, 32) /     -0.02082546400679 /
      data clsq    (5, 32) /     -0.06445558548675 /
      data clsh    (5, 32) /      0.01611389637169 /
      data hcount  (5, 32) /      4.00000000000000 /
      data ascale  (5, 32) /      1.00000000000000 /
      data refcovcn(5, 32) /      3.71823460680579 /
      data refcn   (5, 32) /      3.89724939850564 /
      data refsys (5, 32) /    1 /
      data alphaiw(:,5, 32) /                                            &
     &       34.9443880,    34.4589550,    33.0932300,    28.6849650,   &
     &       23.6815050,    19.2193090,    15.6074480,    12.7869910,   &
     &       10.6029230,     8.9045950,     7.5710690,     6.5114240,   &
     &        4.9643950,     3.9154690,     3.1737400,     2.6301480,   &
     &        2.2195640,     1.5427250,     1.1415220,     0.7041370,   &
     &        0.4803530,     0.2352710,     0.1397600              /
      data refn(32) / 5 /
! REF As  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 33) /      0.00000000000000 /
      data refh    (1, 33) /      0.00000000000000 /
      data gffq    (1, 33) /      0.00000000000000 /
      data gffh    (1, 33) /      0.00000000000000 /
      data dftq    (1, 33) /      0.00000000000000 /
      data dfth    (1, 33) /      0.00000000000000 /
      data pbcq    (1, 33) /      0.00000000000000 /
      data pbch    (1, 33) /      0.00000000000000 /
      data clsq    (1, 33) /      0.00000000000000 /
      data clsh    (1, 33) /      0.00000000000000 /
      data hcount  (1, 33) /      0.00000000000000 /
      data ascale  (1, 33) /      1.00000000000000 /
      data refcovcn(1, 33) /      0.00000000000000 /
      data refcn   (1, 33) /      0.00000000000000 /
      data refsys (1, 33) /    1 /
      data alphaiw(:,1, 33) /                                            &
     &       30.9622720,    30.2682480,    28.4117290,    23.1419060,   &
     &       18.0459760,    14.0238200,    11.0354630,     8.8374630,   &
     &        7.2065030,     5.9774600,     5.0352070,     4.3004040,   &
     &        3.2496190,     2.5521200,     2.0662400,     1.7139300,   &
     &        1.4497910,     1.0172000,     0.7612360,     0.4798100,   &
     &        0.3329600,     0.1673800,     0.1007870              /
! REF AsH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 33) /      0.05341421483108 /
      data refh    (2, 33) /     -0.05341421483111 /
      data gffq    (2, 33) /     -0.09954248086481 /
      data gffh    (2, 33) /      0.09954248086481 /
      data dftq    (2, 33) /      0.03562600000000 /
      data dfth    (2, 33) /     -0.03562800000000 /
      data pbcq    (2, 33) /      0.05341421483108 /
      data pbch    (2, 33) /     -0.05341421483111 /
      data clsq    (2, 33) /     -0.09954248086481 /
      data clsh    (2, 33) /      0.09954248086481 /
      data hcount  (2, 33) /      1.00000000000000 /
      data ascale  (2, 33) /      1.00000000000000 /
      data refcovcn(2, 33) /      0.96810324138508 /
      data refcn   (2, 33) /      0.98892125897221 /
      data refsys (2, 33) /    1 /
      data alphaiw(:,2, 33) /                                            &
     &       32.9857230,    32.2738720,    30.3903080,    25.0725470,   &
     &       19.8545550,    15.6403290,    12.4395230,    10.0416420,   &
     &        8.2363030,     6.8602630,     5.7958010,     4.9597520,   &
     &        3.7548970,     2.9491190,     2.3851990,     1.9752150,   &
     &        1.6674560,     1.1635310,     0.8662610,     0.5416150,   &
     &        0.3738430,     0.1866530,     0.1120540              /
! REF AsH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 33) /      0.08123466385000 /
      data refh    (3, 33) /     -0.04061733192500 /
      data gffq    (3, 33) /     -0.11896736577051 /
      data gffh    (3, 33) /      0.05948368288525 /
      data dftq    (3, 33) /      0.05560200000000 /
      data dfth    (3, 33) /     -0.02779700000000 /
      data pbcq    (3, 33) /      0.08123466385000 /
      data pbch    (3, 33) /     -0.04061733192500 /
      data clsq    (3, 33) /     -0.11896736577051 /
      data clsh    (3, 33) /      0.05948368288525 /
      data hcount  (3, 33) /      2.00000000000000 /
      data ascale  (3, 33) /      1.00000000000000 /
      data refcovcn(3, 33) /      1.93762986034873 /
      data refcn   (3, 33) /      1.97932099000612 /
      data refsys (3, 33) /    1 /
      data alphaiw(:,3, 33) /                                            &
     &       34.5403260,    33.8506380,    32.0374310,    26.8393630,   &
     &       21.5730010,    17.1996430,    13.8049410,    11.2190870,   &
     &        9.2473150,     7.7296440,     6.5466390,     5.6118890,   &
     &        4.2560500,     3.3436390,     2.7026150,     2.2355180,   &
     &        1.8844910,     1.3096800,     0.9712870,     0.6035540,   &
     &        0.4148920,     0.2060850,     0.1234480              /
! REF AsH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 33) /      0.09121599762799 /
      data refh    (4, 33) /     -0.03040533254266 /
      data gffq    (4, 33) /     -0.10225384717106 /
      data gffh    (4, 33) /      0.03408461572369 /
      data dftq    (4, 33) /      0.06023400000000 /
      data dfth    (4, 33) /     -0.02007466666667 /
      data pbcq    (4, 33) /      0.09121599762799 /
      data pbch    (4, 33) /     -0.03040533254266 /
      data clsq    (4, 33) /     -0.10225384717106 /
      data clsh    (4, 33) /      0.03408461572369 /
      data hcount  (4, 33) /      3.00000000000000 /
      data ascale  (4, 33) /      1.00000000000000 /
      data refcovcn(4, 33) /      2.90829444959119 /
      data refcn   (4, 33) /      2.97091083178345 /
      data refsys (4, 33) /    1 /
      data alphaiw(:,4, 33) /                                            &
     &       35.5626970,    34.9738250,    33.3553240,    28.4265670,   &
     &       23.1867600,    18.6947170,    15.1290090,    12.3689250,   &
     &       10.2393320,     8.5855950,     7.2877370,     6.2567940,   &
     &        4.7529590,     3.7354930,     3.0182630,     2.4945970,   &
     &        2.1006490,     1.4553950,     1.0760650,     0.6653780,   &
     &        0.4558740,     0.2254990,     0.1348450              /
      data refn(33) / 4 /
! REF Se  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 34) /      0.00000000000001 /
      data refh    (1, 34) /      0.00000000000000 /
      data gffq    (1, 34) /      0.00000000000000 /
      data gffh    (1, 34) /      0.00000000000000 /
      data dftq    (1, 34) /      0.00000000000001 /
      data dfth    (1, 34) /      0.00000000000000 /
      data pbcq    (1, 34) /      0.00000000000001 /
      data pbch    (1, 34) /      0.00000000000000 /
      data clsq    (1, 34) /      0.00000000000000 /
      data clsh    (1, 34) /      0.00000000000000 /
      data hcount  (1, 34) /      0.00000000000000 /
      data ascale  (1, 34) /      1.00000000000000 /
      data refcovcn(1, 34) /      0.00000000000000 /
      data refcn   (1, 34) /      0.00000000000000 /
      data refsys (1, 34) /    1 /
      data alphaiw(:,1, 34) /                                            &
     &       25.7234860,    25.2967560,    24.1266960,    20.5754680,   &
     &       16.8021780,    13.5652820,    10.9952140,     9.0046390,   &
     &        7.4667080,     6.2701390,     5.3290860,     4.5800740,   &
     &        3.4849480,     2.7424650,     2.2186000,     1.8360660,   &
     &        1.5483750,     1.0775180,     0.8008720,     0.5007840,   &
     &        0.3466260,     0.1746160,     0.1055700              /
! REF SeH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 34) /     -0.14680263633989 /
      data refh    (2, 34) /      0.14680263633988 /
      data gffq    (2, 34) /     -0.12327157100582 /
      data gffh    (2, 34) /      0.12327157100582 /
      data dftq    (2, 34) /     -0.03943200000000 /
      data dfth    (2, 34) /      0.03943100000000 /
      data pbcq    (2, 34) /     -0.14680263633989 /
      data pbch    (2, 34) /      0.14680263633988 /
      data clsq    (2, 34) /     -0.12327157100582 /
      data clsh    (2, 34) /      0.12327157100582 /
      data hcount  (2, 34) /      1.00000000000000 /
      data ascale  (2, 34) /      1.00000000000000 /
      data refcovcn(2, 34) /      0.92195274896170 /
      data refcn   (2, 34) /      0.99005644237283 /
      data refsys (2, 34) /    1 /
      data alphaiw(:,2, 34) /                                            &
     &       28.5144970,    28.0475240,    26.7740720,    22.9293920,   &
     &       18.8329680,    15.2899050,    12.4503800,    10.2324530,   &
     &        8.5069500,     7.1570530,     6.0907950,     5.2391750,   &
     &        3.9892260,     3.1385090,     2.5367660,     2.0966900,   &
     &        1.7654690,     1.2233860,     0.9054680,     0.5621910,   &
     &        0.3871530,     0.1936670,     0.1167080              /
! REF SeH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 34) /     -0.30550786351231 /
      data refh    (3, 34) /      0.15275393175615 /
      data gffq    (3, 34) /     -0.17535803722366 /
      data gffh    (3, 34) /      0.08767901861183 /
      data dftq    (3, 34) /     -0.08485500000000 /
      data dfth    (3, 34) /      0.04243500000000 /
      data pbcq    (3, 34) /     -0.30550786351231 /
      data pbch    (3, 34) /      0.15275393175615 /
      data clsq    (3, 34) /     -0.17535803722366 /
      data clsh    (3, 34) /      0.08767901861183 /
      data hcount  (3, 34) /      2.00000000000000 /
      data ascale  (3, 34) /      1.00000000000000 /
      data refcovcn(3, 34) /      1.84493749809528 /
      data refcn   (3, 34) /      1.98124719453101 /
      data refsys (3, 34) /    1 /
      data alphaiw(:,3, 34) /                                            &
     &       30.9890680,    30.5032140,    29.1715810,    25.1156940,   &
     &       20.7515920,    16.9397500,    13.8556780,    11.4267060,   &
     &        9.5242290,     8.0279190,     6.8410310,     5.8898910,   &
     &        4.4887500,     3.5316780,     2.8531070,     2.3561140,   &
     &        1.9817540,     1.3689360,     1.0099510,     0.6236450,   &
     &        0.4277790,     0.2128400,     0.1279540              /
      data refn(34) / 3 /
! REF Br  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 35) /      0.00000000000000 /
      data refh    (1, 35) /      0.00000000000000 /
      data gffq    (1, 35) /      0.00000000000000 /
      data gffh    (1, 35) /      0.00000000000000 /
      data dftq    (1, 35) /      0.00000000000000 /
      data dfth    (1, 35) /      0.00000000000000 /
      data pbcq    (1, 35) /      0.00000000000000 /
      data pbch    (1, 35) /      0.00000000000000 /
      data clsq    (1, 35) /      0.00000000000000 /
      data clsh    (1, 35) /      0.00000000000000 /
      data hcount  (1, 35) /      0.00000000000000 /
      data ascale  (1, 35) /      1.00000000000000 /
      data refcovcn(1, 35) /      0.00000000000000 /
      data refcn   (1, 35) /      0.00000000000000 /
      data refsys (1, 35) /    1 /
      data alphaiw(:,1, 35) /                                            &
     &       20.8160780,    20.5760200,    19.8987130,    17.6813900,   &
     &       15.0736970,    12.6318500,    10.5528970,     8.8524810,   &
     &        7.4812900,     6.3774160,     5.4848940,     4.7581530,   &
     &        3.6676360,     2.9082370,     2.3624100,     1.9587510,   &
     &        1.6526030,     1.1479460,     0.8506710,     0.5297310,   &
     &        0.3663790,     0.1854320,     0.1127450              /
! REF BrH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 35) /     -0.26466311607424 /
      data refh    (2, 35) /      0.26466311607424 /
      data gffq    (2, 35) /     -0.14490782122377 /
      data gffh    (2, 35) /      0.14490782122377 /
      data dftq    (2, 35) /     -0.10565600000000 /
      data dfth    (2, 35) /      0.10565500000000 /
      data pbcq    (2, 35) /     -0.26466311607424 /
      data pbch    (2, 35) /      0.26466311607424 /
      data clsq    (2, 35) /     -0.14490782122377 /
      data clsh    (2, 35) /      0.14490782122377 /
      data hcount  (2, 35) /      1.00000000000000 /
      data ascale  (2, 35) /      1.00000000000000 /
      data refcovcn(2, 35) /      0.87141367228098 /
      data refcn   (2, 35) /      0.99735391054501 /
      data refsys (2, 35) /    1 /
      data alphaiw(:,2, 35) /                                            &
     &       23.7818040,    23.5043600,    22.7232600,    20.1781530,   &
     &       17.1975750,    14.4112140,    12.0390110,    10.0975330,   &
     &        8.5309690,     7.2693050,     6.2490260,     5.4182350,   &
     &        4.1716820,     3.3037540,     2.6800190,     2.2188460,   &
     &        1.8691920,     1.2933190,     0.9547540,     0.5906060,   &
     &        0.4063970,     0.2041110,     0.1236350              /
      data refn(35) / 2 /
! REF Kr  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 36) /     -0.00000000000000 /
      data refh    (1, 36) /      0.00000000000000 /
      data gffq    (1, 36) /      0.00000000000000 /
      data gffh    (1, 36) /      0.00000000000000 /
      data dftq    (1, 36) /     -0.00000000000000 /
      data dfth    (1, 36) /      0.00000000000000 /
      data pbcq    (1, 36) /     -0.00000000000000 /
      data pbch    (1, 36) /      0.00000000000000 /
      data clsq    (1, 36) /      0.00000000000000 /
      data clsh    (1, 36) /      0.00000000000000 /
      data hcount  (1, 36) /      0.00000000000000 /
      data ascale  (1, 36) /      1.00000000000000 /
      data refcovcn(1, 36) /      0.00000000000000 /
      data refcn   (1, 36) /      0.00000000000000 /
      data refsys (1, 36) /    1 /
      data alphaiw(:,1, 36) /                                            &
     &       16.8771250,    16.7404080,    16.3473440,    14.9868570,   &
     &       13.2465280,    11.4802080,     9.8697990,     8.4773240,   &
     &        7.3035050,     6.3243740,     5.5096050,     4.8302660,   &
     &        3.7825130,     3.0313660,     2.4797800,     2.0653280,   &
     &        1.7472760,     1.2164410,     0.9007200,     0.5591630,   &
     &        0.3861250,     0.1959080,     0.1197080              /
      data refn(36) / 1 /
! REF Rb  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 37) /     -0.00000000000000 /
      data refh    (1, 37) /      0.00000000000000 /
      data gffq    (1, 37) /      0.00000000000000 /
      data gffh    (1, 37) /      0.00000000000000 /
      data dftq    (1, 37) /     -0.00000000000000 /
      data dfth    (1, 37) /      0.00000000000000 /
      data pbcq    (1, 37) /     -0.00000000000000 /
      data pbch    (1, 37) /      0.00000000000000 /
      data clsq    (1, 37) /      0.00000000000000 /
      data clsh    (1, 37) /      0.00000000000000 /
      data hcount  (1, 37) /      0.00000000000000 /
      data ascale  (1, 37) /      1.00000000000000 /
      data refcovcn(1, 37) /      0.00000000000000 /
      data refcn   (1, 37) /      0.00000000000000 /
      data refsys (1, 37) /    1 /
      data alphaiw(:,1, 37) /                                            &
     &      410.1570650,   214.3629420,    92.2189500,    33.0762760,   &
     &       19.1702550,    13.6453490,    10.6953320,     8.8115010,   &
     &        7.4699530,     6.4487380,     5.6381240,     4.9766630,   &
     &        3.9619960,     3.2244460,     2.6697510,     2.2421050,   &
     &        1.9059170,     1.3262900,     0.9698860,     0.5775830,   &
     &        0.3804570,     0.1743570,     0.0992380              /
! REF RbH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 37) /      0.38168923809105 /
      data refh    (2, 37) /     -0.38168923809105 /
      data gffq    (2, 37) /      0.44852683448077 /
      data gffh    (2, 37) /     -0.44852683448077 /
      data dftq    (2, 37) /      0.43412900000000 /
      data dfth    (2, 37) /     -0.43413500000000 /
      data pbcq    (2, 37) /      0.38168923809105 /
      data pbch    (2, 37) /     -0.38168923809105 /
      data clsq    (2, 37) /      0.44852683448077 /
      data clsh    (2, 37) /     -0.44852683448077 /
      data hcount  (2, 37) /      1.00000000000000 /
      data ascale  (2, 37) /      1.00000000000000 /
      data refcovcn(2, 37) /      0.77155167960451 /
      data refcn   (2, 37) /      0.97383869672670 /
      data refsys (2, 37) /    1 /
      data alphaiw(:,2, 37) /                                            &
     &       62.1046880,    55.3737420,    43.5682870,    27.4983580,   &
     &       19.5497690,    15.0663500,    12.1785660,    10.1413920,   &
     &        8.6158260,     7.4268580,     6.4740940,     5.6949060,   &
     &        4.5031460,     3.6435490,     3.0024770,     2.5119750,   &
     &        2.1288570,     1.4737190,     1.0743370,     0.6377080,   &
     &        0.4194260,     0.1919380,     0.1091900              /
      data refn(37) / 2 /
! REF Sr  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 38) /     -0.00000000000000 /
      data refh    (1, 38) /      0.00000000000000 /
      data gffq    (1, 38) /      0.00000000000000 /
      data gffh    (1, 38) /      0.00000000000000 /
      data dftq    (1, 38) /     -0.00000000000000 /
      data dfth    (1, 38) /      0.00000000000000 /
      data pbcq    (1, 38) /     -0.00000000000000 /
      data pbch    (1, 38) /      0.00000000000000 /
      data clsq    (1, 38) /      0.00000000000000 /
      data clsh    (1, 38) /      0.00000000000000 /
      data hcount  (1, 38) /      0.00000000000000 /
      data ascale  (1, 38) /      1.00000000000000 /
      data refcovcn(1, 38) /      0.00000000000000 /
      data refcn   (1, 38) /      0.00000000000000 /
      data refsys (1, 38) /    1 /
      data alphaiw(:,1, 38) /                                            &
     &      207.0959830,   167.4062640,   107.5395190,    46.8864590,   &
     &       26.2027860,    17.4151700,    12.8603380,    10.1317340,   &
     &        8.3169810,     7.0156000,     6.0305450,     5.2554110,   &
     &        4.1095420,     3.3041900,     2.7115560,     2.2617260,   &
     &        1.9123040,     1.3185610,     0.9589950,     0.5679990,   &
     &        0.3733060,     0.1708320,     0.0972390              /
! REF SrH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 38) /      0.35645143015129 /
      data refh    (2, 38) /     -0.35645143015129 /
      data gffq    (2, 38) /      0.42643340166796 /
      data gffh    (2, 38) /     -0.42643340166796 /
      data dftq    (2, 38) /      0.33280500000000 /
      data dfth    (2, 38) /     -0.33280600000000 /
      data pbcq    (2, 38) /      0.35645143015129 /
      data pbch    (2, 38) /     -0.35645143015129 /
      data clsq    (2, 38) /      0.42643340166796 /
      data clsh    (2, 38) /     -0.42643340166796 /
      data hcount  (2, 38) /      1.00000000000000 /
      data ascale  (2, 38) /      1.00000000000000 /
      data refcovcn(2, 38) /      0.79294768050705 /
      data refcn   (2, 38) /      0.98009983712321 /
      data refsys (2, 38) /    1 /
      data alphaiw(:,2, 38) /                                            &
     &      203.7569620,   136.2520380,    79.3342830,    39.0709150,   &
     &       24.8495540,    17.8598820,    13.7760240,    11.1115300,   &
     &        9.2347870,     7.8382880,     6.7567000,     5.8938450,   &
     &        4.6058940,     3.6968050,     3.0281860,     2.5217330,   &
     &        2.1292640,     1.4647060,     1.0638290,     0.6292740,   &
     &        0.4133770,     0.1891240,     0.1076560              /
! REF SrH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 38) /      0.49180080996872 /
      data refh    (3, 38) /     -0.24590040498436 /
      data gffq    (3, 38) /      0.64902814271780 /
      data gffh    (3, 38) /     -0.32451407135890 /
      data dftq    (3, 38) /      0.72209300000000 /
      data dfth    (3, 38) /     -0.36105100000000 /
      data pbcq    (3, 38) /      0.49180080996872 /
      data pbch    (3, 38) /     -0.24590040498436 /
      data clsq    (3, 38) /      0.64902814271780 /
      data clsh    (3, 38) /     -0.32451407135890 /
      data hcount  (3, 38) /      2.00000000000000 /
      data ascale  (3, 38) /      1.00000000000000 /
      data refcovcn(3, 38) /      1.54805734413866 /
      data refcn   (3, 38) /      1.91434965086468 /
      data refsys (3, 38) /    1 /
      data alphaiw(:,3, 38) /                                            &
     &       56.7366690,    53.8312150,    47.2695200,    33.9461020,   &
     &       24.8182410,    18.9521460,    15.0374310,    12.2916810,   &
     &       10.2772390,     8.7433090,     7.5399850,     6.5735100,   &
     &        5.1255840,     4.1035260,     3.3535750,     2.7871740,   &
     &        2.3494990,     1.6113550,     1.1681150,     0.6895060,   &
     &        0.4524650,     0.2067690,     0.1176430              /
      data refn(38) / 3 /
! REF Y - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 39) /     -0.00000000016424 /
      data refh    (1, 39) /      0.00000000000000 /
      data gffq    (1, 39) /      0.00000000000000 /
      data gffh    (1, 39) /      0.00000000000000 /
      data dftq    (1, 39) /     -0.00000000016424 /
      data dfth    (1, 39) /      0.00000000000000 /
      data pbcq    (1, 39) /     -0.00000000016424 /
      data pbch    (1, 39) /      0.00000000000000 /
      data clsq    (1, 39) /      0.00000000000000 /
      data clsh    (1, 39) /      0.00000000000000 /
      data hcount  (1, 39) /      0.00000000000000 /
      data ascale  (1, 39) /      1.00000000000000 /
      data refcovcn(1, 39) /      0.00000000000000 /
      data refcn   (1, 39) /      0.00000000000000 /
      data refsys (1, 39) /    1 /
      data alphaiw(:,1, 39) /                                            &
     &      156.5816530,   133.4096570,    94.6810390,    47.1887390,   &
     &       27.8621270,    18.8348770,    13.9092620,    10.8900460,   &
     &        8.8730220,     7.4352670,     6.3585500,     5.5211390,   &
     &        4.3014730,     3.4566600,     2.8399260,     2.3734080,   &
     &        2.0112610,     1.3945770,     1.0190510,     0.6075350,   &
     &        0.4008910,     0.1843540,     0.1051420              /
! REF YH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 39) /      0.24428414681068 /
      data refh    (2, 39) /     -0.12214207340534 /
      data gffq    (2, 39) /      0.57618546114280 /
      data gffh    (2, 39) /     -0.28809273057140 /
      data dftq    (2, 39) /      0.52663000000000 /
      data dfth    (2, 39) /     -0.26330900000000 /
      data pbcq    (2, 39) /      0.24428414681068 /
      data pbch    (2, 39) /     -0.12214207340534 /
      data clsq    (2, 39) /      0.57618546114280 /
      data clsh    (2, 39) /     -0.28809273057140 /
      data hcount  (2, 39) /      2.00000000000000 /
      data ascale  (2, 39) /      1.00000000000000 /
      data refcovcn(2, 39) /      1.61670701598223 /
      data refcn   (2, 39) /      1.91534612543569 /
      data refsys (2, 39) /    1 /
      data alphaiw(:,2, 39) /                                            &
     &      126.8052320,    88.7747170,    64.1464690,    40.2998810,   &
     &       28.2499780,    21.0643660,    16.4186290,    13.2334170,   &
     &       10.9441490,     9.2339520,     7.9151340,     6.8713270,   &
     &        5.3330370,     4.2636390,     3.4855460,     2.9002550,   &
     &        2.4485960,     1.6861640,     1.2266060,     0.7275190,   &
     &        0.4787640,     0.2194880,     0.1250190              /
! REF YH3 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 39) /      0.57366289718762 /
      data refh    (3, 39) /     -0.19122096572919 /
      data gffq    (3, 39) /      0.72312847632101 /
      data gffh    (3, 39) /     -0.24104282544034 /
      data dftq    (3, 39) /      0.82670000000000 /
      data dfth    (3, 39) /     -0.27556766666667 /
      data pbcq    (3, 39) /      0.57366289718762 /
      data pbch    (3, 39) /     -0.19122096572919 /
      data clsq    (3, 39) /      0.72312847632101 /
      data clsh    (3, 39) /     -0.24104282544034 /
      data hcount  (3, 39) /      3.00000000000000 /
      data ascale  (3, 39) /      1.00000000000000 /
      data refcovcn(3, 39) /      2.43996146811665 /
      data refcn   (3, 39) /      2.89028721234797 /
      data refsys (3, 39) /    1 /
      data alphaiw(:,3, 39) /                                            &
     &       51.9455750,    50.4162010,    46.5373240,    36.6790590,   &
     &       28.1986330,    21.9785510,    17.5295770,    14.3039920,   &
     &       11.9077650,    10.0810740,     8.6547010,     7.5170970,   &
     &        5.8310100,     4.6555680,     3.8004240,     3.1579800,   &
     &        2.6630160,     1.8296590,     1.3289880,     0.7868860,   &
     &        0.5173750,     0.2369610,     0.1349160              /
      data refn(39) / 3 /
! REF Zr  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 40) /     -0.00000000032846 /
      data refh    (1, 40) /      0.00000000000000 /
      data gffq    (1, 40) /      0.00000000000000 /
      data gffh    (1, 40) /      0.00000000000000 /
      data dftq    (1, 40) /     -0.00000000032846 /
      data dfth    (1, 40) /      0.00000000000000 /
      data pbcq    (1, 40) /     -0.00000000032846 /
      data pbch    (1, 40) /      0.00000000000000 /
      data clsq    (1, 40) /      0.00000000000000 /
      data clsh    (1, 40) /      0.00000000000000 /
      data hcount  (1, 40) /      0.00000000000000 /
      data ascale  (1, 40) /      1.00000000000000 /
      data refcovcn(1, 40) /      0.00000000000000 /
      data refcn   (1, 40) /      0.00000000000000 /
      data refsys (1, 40) /    1 /
      data alphaiw(:,1, 40) /                                            &
     &      129.1649250,   112.9115260,    84.2744150,    45.2123570,   &
     &       27.6899320,    19.0856380,    14.2390790,    11.2024000,   &
     &        9.1447760,     7.6666660,     6.5563690,     5.6928180,   &
     &        4.4382110,     3.5726300,     2.9422010,     2.4654780,   &
     &        2.0949780,     1.4616900,     1.0734540,     0.6444360,   &
     &        0.4270850,     0.1974770,     0.1128890              /
! REF ZrH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 40) /      0.23434724049553 /
      data refh    (2, 40) /     -0.11717362032124 /
      data gffq    (2, 40) /      0.34661262612707 /
      data gffh    (2, 40) /     -0.17330631306353 /
      data dftq    (2, 40) /      0.47058500000000 /
      data dfth    (2, 40) /     -0.23528100000000 /
      data pbcq    (2, 40) /      0.23434724049553 /
      data pbch    (2, 40) /     -0.11717362032124 /
      data clsq    (2, 40) /      0.34661262612707 /
      data clsh    (2, 40) /     -0.17330631306353 /
      data hcount  (2, 40) /      2.00000000000000 /
      data ascale  (2, 40) /      1.00000000000000 /
      data refcovcn(2, 40) /      1.66263906536582 /
      data refcn   (2, 40) /      1.93553367207877 /
      data refsys (2, 40) /    1 /
      data alphaiw(:,2, 40) /                                            &
     &       59.5329360,    59.0731440,    49.3004260,    35.6901590,   &
     &       26.5930640,    20.4777520,    16.2621680,    13.2552040,   &
     &       11.0380980,     9.3543390,     8.0423850,     6.9973630,   &
     &        5.4495930,     4.3698600,     3.5825450,     2.9890610,   &
     &        2.5300090,     1.7518420,     1.2798730,     0.7635970,   &
     &        0.5043350,     0.2322730,     0.1325630              /
! REF ZrH4  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 40) /      1.20638669497168 /
      data refh    (3, 40) /     -0.30159667374292 /
      data gffq    (3, 40) /      0.56547785565182 /
      data gffh    (3, 40) /     -0.14136946391296 /
      data dftq    (3, 40) /      0.76303600000000 /
      data dfth    (3, 40) /     -0.19075400000000 /
      data pbcq    (3, 40) /      1.20638669497168 /
      data pbch    (3, 40) /     -0.30159667374292 /
      data clsq    (3, 40) /      0.56547785565182 /
      data clsh    (3, 40) /     -0.14136946391296 /
      data hcount  (3, 40) /      4.00000000000000 /
      data ascale  (3, 40) /      1.00000000000000 /
      data refcovcn(3, 40) /      3.35991209283567 /
      data refcn   (3, 40) /      3.91060485457820 /
      data refsys (3, 40) /    1 /
      data alphaiw(:,3, 40) /                                            &
     &       53.7033680,    52.3694770,    48.8771380,    39.4788990,   &
     &       30.9424830,    24.4286920,    19.6266710,    16.0687640,   &
     &       13.3881100,    11.3281120,     9.7137520,     8.4253900,   &
     &        6.5198670,     5.1977820,     4.2403830,     3.5235900,   &
     &        2.9725540,     2.0460840,     1.4892320,     0.8847240,   &
     &        0.5830200,     0.2678100,     0.1526730              /
      data refn(40) / 3 /
! REF Nb  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 41) /     -0.00000000016530 /
      data refh    (1, 41) /      0.00000000000000 /
      data gffq    (1, 41) /      0.00000000000000 /
      data gffh    (1, 41) /      0.00000000000000 /
      data dftq    (1, 41) /     -0.00000000016530 /
      data dfth    (1, 41) /      0.00000000000000 /
      data pbcq    (1, 41) /     -0.00000000016530 /
      data pbch    (1, 41) /      0.00000000000000 /
      data clsq    (1, 41) /      0.00000000000000 /
      data clsh    (1, 41) /      0.00000000000000 /
      data hcount  (1, 41) /      0.00000000000000 /
      data ascale  (1, 41) /      1.00000000000000 /
      data refcovcn(1, 41) /      0.00000000000000 /
      data refcn   (1, 41) /      0.00000000000000 /
      data refsys (1, 41) /    1 /
      data alphaiw(:,1, 41) /                                            &
     &      112.5868220,    98.9946210,    75.5219100,    42.5430350,   &
     &       26.8101620,    18.7904950,    14.1713590,    11.2319370,   &
     &        9.2165940,     7.7556700,     6.6508620,     5.7874800,   &
     &        4.5279270,     3.6564020,     3.0206270,     2.5390860,   &
     &        2.1640690,     1.5202440,     1.1226240,     0.6790940,   &
     &        0.4521310,     0.2102320,     0.1204560              /
! REF NbH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 41) /      0.07227863444443 /
      data refh    (2, 41) /     -0.03613931722222 /
      data gffq    (2, 41) /      0.42830519499403 /
      data gffh    (2, 41) /     -0.21415259749701 /
      data dftq    (2, 41) /      0.46105300000000 /
      data dfth    (2, 41) /     -0.23052400000000 /
      data pbcq    (2, 41) /      0.07227863444443 /
      data pbch    (2, 41) /     -0.03613931722222 /
      data clsq    (2, 41) /      0.42830519499403 /
      data clsh    (2, 41) /     -0.21415259749701 /
      data hcount  (2, 41) /      2.00000000000000 /
      data ascale  (2, 41) /      1.00000000000000 /
      data refcovcn(2, 41) /      1.75136276843804 /
      data refcn   (2, 41) /      1.95448265742483 /
      data refsys (2, 41) /    1 /
      data alphaiw(:,2, 41) /                                            &
     &       55.9986780,    60.8749560,    50.6953400,    35.6643390,   &
     &       26.4531740,    20.4359360,    16.2988900,    13.3351670,   &
     &       11.1377280,     9.4604950,     8.1484630,     7.1004180,   &
     &        5.5443520,     4.4569430,     3.6632070,     3.0641820,   &
     &        2.6001160,     1.8107380,     1.3291220,     0.7982160,   &
     &        0.5293550,     0.2450550,     0.1401740              /
! REF NbH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 41) /      0.29185185548337 /
      data refh    (3, 41) /     -0.09728395182779 /
      data gffq    (3, 41) /      0.56050948600940 /
      data gffh    (3, 41) /     -0.18683649533647 /
      data dftq    (3, 41) /      0.68809500000000 /
      data dfth    (3, 41) /     -0.22936433333333 /
      data pbcq    (3, 41) /      0.29185185548337 /
      data pbch    (3, 41) /     -0.09728395182779 /
      data clsq    (3, 41) /      0.56050948600940 /
      data clsh    (3, 41) /     -0.18683649533647 /
      data hcount  (3, 41) /      3.00000000000000 /
      data ascale  (3, 41) /      1.00000000000000 /
      data refcovcn(3, 41) /      2.61865286219105 /
      data refcn   (3, 41) /      2.92252286735086 /
      data refsys (3, 41) /    1 /
      data alphaiw(:,3, 41) /                                            &
     &       51.3329100,    49.0284950,    44.6433950,    35.3677840,   &
     &       27.6830280,    21.9413960,    17.7220800,    14.5880150,   &
     &       12.2159700,    10.3838810,     8.9410440,     7.7843510,   &
     &        6.0637690,     4.8619510,     3.9865780,     3.3277110,   &
     &        2.8186730,     1.9562960,     1.4327150,     0.8581570,   &
     &        0.5683180,     0.2626950,     0.1501750              /
      data refn(41) / 3 /
! REF Mo  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 42) /      0.00000000000215 /
      data refh    (1, 42) /      0.00000000000000 /
      data gffq    (1, 42) /      0.00000000000000 /
      data gffh    (1, 42) /      0.00000000000000 /
      data dftq    (1, 42) /      0.00000000000215 /
      data dfth    (1, 42) /      0.00000000000000 /
      data pbcq    (1, 42) /      0.00000000000215 /
      data pbch    (1, 42) /      0.00000000000000 /
      data clsq    (1, 42) /      0.00000000000000 /
      data clsh    (1, 42) /      0.00000000000000 /
      data hcount  (1, 42) /      0.00000000000000 /
      data ascale  (1, 42) /      1.00000000000000 /
      data refcovcn(1, 42) /      0.00000000000000 /
      data refcn   (1, 42) /      0.00000000000000 /
      data refsys (1, 42) /    1 /
      data alphaiw(:,1, 42) /                                            &
     &       80.1166370,    72.0033490,    56.3464510,    33.3622730,   &
     &       22.2521730,    16.3666450,    12.8045350,    10.4296810,   &
     &        8.7352680,     7.4656260,     6.4789340,     5.6904860,   &
     &        4.5115160,     3.6758650,     3.0566210,     2.5826100,   &
     &        2.2106410,     1.5662560,     1.1641470,     0.7106370,   &
     &        0.4758290,     0.2228080,     0.1280230              /
! REF MoH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 42) /      0.41711608925275 /
      data refh    (2, 42) /     -0.20855804462761 /
      data gffq    (2, 42) /      0.46738200215089 /
      data gffh    (2, 42) /     -0.23369100107545 /
      data dftq    (2, 42) /      0.35668400000000 /
      data dfth    (2, 42) /     -0.17833900000000 /
      data pbcq    (2, 42) /      0.41711608925275 /
      data pbch    (2, 42) /     -0.20855804462761 /
      data clsq    (2, 42) /      0.46738200215089 /
      data clsh    (2, 42) /     -0.23369100107545 /
      data hcount  (2, 42) /      2.00000000000000 /
      data ascale  (2, 42) /      1.00000000000000 /
      data refcovcn(2, 42) /      1.89510707051732 /
      data refcn   (2, 42) /      1.94202903408340 /
      data refsys (2, 42) /    1 /
      data alphaiw(:,2, 42) /                                            &
     &       57.3696220,    53.6619600,    46.4519190,    33.7721100,   &
     &       25.3796990,    19.8008640,    15.9255030,    13.1223040,   &
     &       11.0249000,     9.4107880,     8.1389620,     7.1166930,   &
     &        5.5878340,     4.5113880,     3.7214650,     3.1229210,   &
     &        2.6576930,     1.8625700,     1.3742440,     0.8315500,   &
     &        0.5541640,     0.2581730,     0.1480840              /
! REF MoH12 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 42) /     -4.49571796748720 /
      data refh    (3, 42) /      0.37464316395727 /
      data gffq    (3, 42) /      0.47338670395900 /
      data gffh    (3, 42) /     -0.03944889199658 /
      data dftq    (3, 42) /      0.25593400000000 /
      data dfth    (3, 42) /     -0.02134716666667 /
      data pbcq    (3, 42) /     -4.49571796748720 /
      data pbch    (3, 42) /      0.37464316395727 /
      data clsq    (3, 42) /      0.47338670395900 /
      data clsh    (3, 42) /     -0.03944889199658 /
      data hcount  (3, 42) /     12.00000000000000 /
      data ascale  (3, 42) /      1.00000000000000 /
      data refcovcn(3, 42) /     10.77850977361032 /
      data refcn   (3, 42) /     11.05564046968760 /
      data refsys (3, 42) /    1 /
      data alphaiw(:,3, 42) /                                            &
     &       67.2624950,    66.0303950,    62.7575620,    53.5269770,   &
     &       44.3751560,    36.6776440,    30.4829790,    25.5527440,   &
     &       21.6261800,    18.4804960,    15.9392930,    13.8670690,   &
     &       10.7428020,     8.5472490,     6.9523710,     5.7601520,   &
     &        4.8468120,     3.3211190,     2.4114970,     1.4303190,   &
     &        0.9425060,     0.4333420,     0.2472210              /
! REF MoH6  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 42) /     -0.06533097651865 /
      data refh    (4, 42) /      0.01088849608642 /
      data gffq    (4, 42) /      0.59427677788562 /
      data gffh    (4, 42) /     -0.09904612964760 /
      data dftq    (4, 42) /      0.47071000000000 /
      data dfth    (4, 42) /     -0.07844700000000 /
      data pbcq    (4, 42) /     -0.06533097651865 /
      data pbch    (4, 42) /      0.01088849608642 /
      data clsq    (4, 42) /      0.59427677788562 /
      data clsh    (4, 42) /     -0.09904612964760 /
      data hcount  (4, 42) /      6.00000000000000 /
      data ascale  (4, 42) /      1.00000000000000 /
      data refcovcn(4, 42) /      5.59646145748005 /
      data refcn   (4, 42) /      5.73689802594352 /
      data refsys (4, 42) /    1 /
      data alphaiw(:,4, 42) /                                            &
     &       57.1122440,    54.5507140,    49.8607540,    40.5094150,   &
     &       32.7396620,    26.6350470,    21.9139730,    18.2593580,   &
     &       15.4061580,    13.1523240,    11.3489830,     9.8875440,   &
     &        7.6939570,     6.1540760,     5.0326460,     4.1907210,   &
     &        3.5424610,     2.4502640,     1.7914150,     1.0718980,   &
     &        0.7099120,     0.3284040,     0.1878520              /
      data refn(42) / 4 /
! REF Tc  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 43) /      0.00000000016529 /
      data refh    (1, 43) /      0.00000000000000 /
      data gffq    (1, 43) /      0.00000000000000 /
      data gffh    (1, 43) /      0.00000000000000 /
      data dftq    (1, 43) /      0.00000000016529 /
      data dfth    (1, 43) /      0.00000000000000 /
      data pbcq    (1, 43) /      0.00000000016529 /
      data pbch    (1, 43) /      0.00000000000000 /
      data clsq    (1, 43) /      0.00000000000000 /
      data clsh    (1, 43) /      0.00000000000000 /
      data hcount  (1, 43) /      0.00000000000000 /
      data ascale  (1, 43) /      1.00000000000000 /
      data refcovcn(1, 43) /      0.00000000000000 /
      data refcn   (1, 43) /      0.00000000000000 /
      data refsys (1, 43) /    1 /
      data alphaiw(:,1, 43) /                                            &
     &       92.9387160,    81.9452450,    63.3698580,    37.3296730,   &
     &       24.3564850,    17.4779390,    13.4110250,    10.7755340,   &
     &        8.9429790,     7.5986600,     6.5712030,     5.7605070,   &
     &        4.5631700,     3.7227110,     3.1024520,     2.6281370,   &
     &        2.2556760,     1.6085080,     1.2022890,     0.7402780,   &
     &        0.4986150,     0.2353880,     0.1357590              /
! REF TcH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 43) /      0.64591605124188 /
      data refh    (2, 43) /     -0.32295802562115 /
      data gffq    (2, 43) /      0.24709379453256 /
      data gffh    (2, 43) /     -0.12354689726628 /
      data dftq    (2, 43) /      0.60722100000000 /
      data dfth    (2, 43) /     -0.30360700000000 /
      data pbcq    (2, 43) /      0.64591605124188 /
      data pbch    (2, 43) /     -0.32295802562115 /
      data clsq    (2, 43) /      0.24709379453256 /
      data clsh    (2, 43) /     -0.12354689726628 /
      data hcount  (2, 43) /      2.00000000000000 /
      data ascale  (2, 43) /      1.00000000000000 /
      data refcovcn(2, 43) /      1.56460355314490 /
      data refcn   (2, 43) /      1.66816908014472 /
      data refsys (2, 43) /    1 /
      data alphaiw(:,2, 43) /                                            &
     &       75.8730320,    65.9104100,    51.9040420,    34.7083320,   &
     &       25.4784390,    19.7433960,    15.8501840,    13.0603640,   &
     &       10.9826550,     9.3875760,     8.1320480,     7.1229420,   &
     &        5.6121410,     4.5457470,     3.7609510,     3.1646320,   &
     &        2.6999290,     1.9026050,     1.4102760,     0.8594030,   &
     &        0.5755190,     0.2699220,     0.1552940              /
! REF TcH11 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 43) /     -0.23793642111122 /
      data refh    (3, 43) /      0.02163058373738 /
      data gffq    (3, 43) /      0.18198173917164 /
      data gffh    (3, 43) /     -0.01654379447015 /
      data dftq    (3, 43) /      0.48260600000000 /
      data dfth    (3, 43) /     -0.04394809090909 /
      data pbcq    (3, 43) /     -0.23793642111122 /
      data pbch    (3, 43) /      0.02163058373738 /
      data clsq    (3, 43) /      0.18198173917164 /
      data clsh    (3, 43) /     -0.01654379447015 /
      data hcount  (3, 43) /     11.00000000000000 /
      data ascale  (3, 43) /      1.00000000000000 /
      data refcovcn(3, 43) /      8.94426823783675 /
      data refcn   (3, 43) /      9.54020187746512 /
      data refsys (3, 43) /    1 /
      data alphaiw(:,3, 43) /                                            &
     &       58.5751980,    57.7047570,    55.3283600,    48.1684600,   &
     &       40.5340630,    33.8274610,    28.3028200,    23.8467240,   &
     &       20.2669430,    17.3809560,    15.0378770,    13.1192270,   &
     &       10.2118960,     8.1570940,     6.6575030,     5.5321270,   &
     &        4.6670770,     3.2152040,     2.3443700,     1.3987970,   &
     &        0.9253150,     0.4276690,     0.2445830              /
      data refn(43) / 3 /
! REF Ru  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 44) /      0.00000000032850 /
      data refh    (1, 44) /      0.00000000000000 /
      data gffq    (1, 44) /      0.00000000000000 /
      data gffh    (1, 44) /      0.00000000000000 /
      data dftq    (1, 44) /      0.00000000032850 /
      data dfth    (1, 44) /      0.00000000000000 /
      data pbcq    (1, 44) /      0.00000000032850 /
      data pbch    (1, 44) /      0.00000000000000 /
      data clsq    (1, 44) /      0.00000000000000 /
      data clsh    (1, 44) /      0.00000000000000 /
      data hcount  (1, 44) /      0.00000000000000 /
      data ascale  (1, 44) /      1.00000000000000 /
      data refcovcn(1, 44) /      0.00000000000000 /
      data refcn   (1, 44) /      0.00000000000000 /
      data refsys (1, 44) /    1 /
      data alphaiw(:,1, 44) /                                            &
     &       64.2873650,    58.2984130,    46.6241190,    28.9081460,   &
     &       19.8860070,    14.9414970,    11.8820490,     9.8067370,   &
     &        8.3050910,     7.1669030,     6.2736860,     5.5536060,   &
     &        4.4638560,     3.6792510,     3.0894480,     2.6322260,   &
     &        2.2694820,     1.6317090,     1.2266730,     0.7613680,   &
     &        0.5156110,     0.2453210,     0.1420300              /
! REF RuH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 44) /      0.33761243623061 /
      data refh    (2, 44) /     -0.16880621811531 /
      data gffq    (2, 44) /      0.32415456703039 /
      data gffh    (2, 44) /     -0.16207728351520 /
      data dftq    (2, 44) /      0.37327600000000 /
      data dfth    (2, 44) /     -0.18663700000000 /
      data pbcq    (2, 44) /      0.33761243623061 /
      data pbch    (2, 44) /     -0.16880621811531 /
      data clsq    (2, 44) /      0.32415456703039 /
      data clsh    (2, 44) /     -0.16207728351520 /
      data hcount  (2, 44) /      2.00000000000000 /
      data ascale  (2, 44) /      1.00000000000000 /
      data refcovcn(2, 44) /      1.82293327778554 /
      data refcn   (2, 44) /      1.85843916069775 /
      data refsys (2, 44) /    1 /
      data alphaiw(:,2, 44) /                                            &
     &       45.7015170,    44.1640550,    40.0828620,    30.9952860,   &
     &       23.8618350,    18.8259100,    15.2521470,    12.6439180,   &
     &       10.6826650,     9.1676420,     7.9697090,     7.0033880,   &
     &        5.5501890,     4.5187320,     3.7556240,     3.1728410,   &
     &        2.7165260,     1.9281300,     1.4370560,     0.8825770,   &
     &        0.5941370,     0.2807420,     0.1621180              /
! REF RuH10 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 44) /     -0.70670795998626 /
      data refh    (3, 44) /      0.07067079599863 /
      data gffq    (3, 44) /      0.36375674498582 /
      data gffh    (3, 44) /     -0.03637567449858 /
      data dftq    (3, 44) /      0.22154000000000 /
      data dfth    (3, 44) /     -0.02217640000000 /
      data pbcq    (3, 44) /     -0.70670795998626 /
      data pbch    (3, 44) /      0.07067079599863 /
      data clsq    (3, 44) /      0.36375674498582 /
      data clsh    (3, 44) /     -0.03637567449858 /
      data hcount  (3, 44) /     10.00000000000000 /
      data ascale  (3, 44) /      1.00000000000000 /
      data refcovcn(3, 44) /      8.72336154530085 /
      data refcn   (3, 44) /      8.88947582399905 /
      data refsys (3, 44) /    1 /
      data alphaiw(:,3, 44) /                                            &
     &       53.6449610,    52.9021650,    50.8530030,    44.5291150,   &
     &       37.6245730,    31.4884170,    26.4097500,    22.3040630,   &
     &       19.0002040,    16.3321480,    14.1620830,    12.3817320,   &
     &        9.6763600,     7.7570110,     6.3512380,     5.2927530,   &
     &        4.4766230,     3.1006590,     2.2704610,     1.3630470,   &
     &        0.9053930,     0.4209110,     0.2414160              /
      data refn(44) / 3 /
! REF Rh  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 45) /      0.00000000016424 /
      data refh    (1, 45) /      0.00000000000000 /
      data gffq    (1, 45) /      0.00000000000000 /
      data gffh    (1, 45) /      0.00000000000000 /
      data dftq    (1, 45) /      0.00000000016424 /
      data dfth    (1, 45) /      0.00000000000000 /
      data pbcq    (1, 45) /      0.00000000016424 /
      data pbch    (1, 45) /      0.00000000000000 /
      data clsq    (1, 45) /      0.00000000000000 /
      data clsh    (1, 45) /      0.00000000000000 /
      data hcount  (1, 45) /      0.00000000000000 /
      data ascale  (1, 45) /      1.00000000000000 /
      data refcovcn(1, 45) /      0.00000000000000 /
      data refcn   (1, 45) /      0.00000000000000 /
      data refsys (1, 45) /    1 /
      data alphaiw(:,1, 45) /                                            &
     &       68.1542450,    62.9960050,    52.0807400,    32.9144330,   &
     &       22.1117060,    16.1257920,    12.5115460,    10.1406800,   &
     &        8.4788070,     7.2525150,     6.3108490,     5.5647590,   &
     &        4.4563970,     3.6717400,     3.0873140,     2.6361620,   &
     &        2.2786150,     1.6486870,     1.2462650,     0.7799260,   &
     &        0.5311430,     0.2547010,     0.1480120              /
! REF RhH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 45) /      0.13533447471642 /
      data refh    (2, 45) /     -0.06766723732262 /
      data gffq    (2, 45) /      0.14509956942986 /
      data gffh    (2, 45) /     -0.07254978471493 /
      data dftq    (2, 45) /      0.28998000000000 /
      data dfth    (2, 45) /     -0.14499100000000 /
      data pbcq    (2, 45) /      0.13533447471642 /
      data pbch    (2, 45) /     -0.06766723732262 /
      data clsq    (2, 45) /      0.14509956942986 /
      data clsh    (2, 45) /     -0.07254978471493 /
      data hcount  (2, 45) /      2.00000000000000 /
      data ascale  (2, 45) /      1.00000000000000 /
      data refcovcn(2, 45) /      1.84241892648043 /
      data refcn   (2, 45) /      1.90032831305941 /
      data refsys (2, 45) /    1 /
      data alphaiw(:,2, 45) /                                            &
     &       43.3417530,    41.4841810,    37.5198890,    29.0651560,   &
     &       22.5178410,    17.8848750,    14.5797210,    12.1532300,   &
     &       10.3179030,     8.8923860,     7.7596700,     6.8419520,   &
     &        5.4542350,     4.4628030,     3.7251260,     3.1588890,   &
     &        2.7134840,     1.9388590,     1.4524300,     0.8985520,   &
     &        0.6078940,     0.2892870,     0.1676290              /
! REF RhH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 45) /     -0.06808100110832 /
      data refh    (3, 45) /      0.02269366703611 /
      data gffq    (3, 45) /      0.18388211183689 /
      data gffh    (3, 45) /     -0.06129403727896 /
      data dftq    (3, 45) /      0.21996900000000 /
      data dfth    (3, 45) /     -0.07331066666667 /
      data pbcq    (3, 45) /     -0.06808100110832 /
      data pbch    (3, 45) /      0.02269366703611 /
      data clsq    (3, 45) /      0.18388211183689 /
      data clsh    (3, 45) /     -0.06129403727896 /
      data hcount  (3, 45) /      3.00000000000000 /
      data ascale  (3, 45) /      1.00000000000000 /
      data refcovcn(3, 45) /      2.88090049147235 /
      data refcn   (3, 45) /      2.96957012334100 /
      data refsys (3, 45) /    1 /
      data alphaiw(:,3, 45) /                                            &
     &       37.7442490,    36.6313080,    34.0210470,    27.9047180,   &
     &       22.6219420,    18.5364410,    15.4279090,    13.0366770,   &
     &       11.1653460,     9.6752930,     8.4697300,     7.4802140,   &
     &        5.9656450,     4.8738020,     4.0587720,     3.4331020,   &
     &        2.9417130,     2.0906290,     1.5597110,     0.9597480,   &
     &        0.6472660,     0.3069220,     0.1776240              /
! REF RhH5  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 45) /     -0.00946705789381 /
      data refh    (4, 45) /      0.00189341151982 /
      data gffq    (4, 45) /      0.24549798804335 /
      data gffh    (4, 45) /     -0.04909959760867 /
      data dftq    (4, 45) /      0.17843100000000 /
      data dfth    (4, 45) /     -0.03568620000000 /
      data pbcq    (4, 45) /     -0.00946705789381 /
      data pbch    (4, 45) /      0.00189341151982 /
      data clsq    (4, 45) /      0.24549798804335 /
      data clsh    (4, 45) /     -0.04909959760867 /
      data hcount  (4, 45) /      5.00000000000000 /
      data ascale  (4, 45) /      1.00000000000000 /
      data refcovcn(4, 45) /      4.69798180984017 /
      data refcn   (4, 45) /      4.84416063571149 /
      data refsys (4, 45) /    1 /
      data alphaiw(:,4, 45) /                                            &
     &       50.7362600,    49.4436100,    46.2123700,    37.7336800,   &
     &       30.0265600,    24.1196600,    19.7259100,    16.4228700,   &
     &       13.8898500,    11.9075300,    10.3272700,     9.0468100,   &
     &        7.1181400,     5.7535600,     4.7506500,     3.9906900,   &
     &        3.4003100,     2.3920200,     1.7726100,     1.0819100,   &
     &        0.7262700,     0.3424400,     0.1977000              /
      data refn(45) / 4 /
! REF Pd  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 46) /      0.00000000000000 /
      data refh    (1, 46) /      0.00000000000000 /
      data gffq    (1, 46) /      0.00000000000000 /
      data gffh    (1, 46) /      0.00000000000000 /
      data dftq    (1, 46) /      0.00000000000000 /
      data dfth    (1, 46) /      0.00000000000000 /
      data pbcq    (1, 46) /      0.00000000000000 /
      data pbch    (1, 46) /      0.00000000000000 /
      data clsq    (1, 46) /      0.00000000000000 /
      data clsh    (1, 46) /      0.00000000000000 /
      data hcount  (1, 46) /      0.00000000000000 /
      data ascale  (1, 46) /      1.00000000000000 /
      data refcovcn(1, 46) /      0.00000000000000 /
      data refcn   (1, 46) /      0.00000000000000 /
      data refsys (1, 46) /    1 /
      data alphaiw(:,1, 46) /                                            &
     &       60.8864630,    56.8478940,    47.8540600,    30.9841900,   &
     &       21.0472500,    15.4485530,    12.0425860,     9.7984690,   &
     &        8.2204320,     7.0529890,     6.1545310,     5.4412960,   &
     &        4.3791150,     3.6247120,     3.0609020,     2.6240310,   &
     &        2.2764150,     1.6598380,     1.2622490,     0.7967230,   &
     &        0.5457380,     0.2639640,     0.1541040              /
! REF PdH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 46) /      0.13729986799639 /
      data refh    (2, 46) /     -0.06864993399800 /
      data gffq    (2, 46) /      0.22956514930613 /
      data gffh    (2, 46) /     -0.11478257465306 /
      data dftq    (2, 46) /      0.32441800000000 /
      data dfth    (2, 46) /     -0.16221000000000 /
      data pbcq    (2, 46) /      0.13729986799639 /
      data pbch    (2, 46) /     -0.06864993399800 /
      data clsq    (2, 46) /      0.22956514930613 /
      data clsh    (2, 46) /     -0.11478257465306 /
      data hcount  (2, 46) /      2.00000000000000 /
      data ascale  (2, 46) /      1.00000000000000 /
      data refcovcn(2, 46) /      1.82751376419277 /
      data refcn   (2, 46) /      1.86304976118092 /
      data refsys (2, 46) /    1 /
      data alphaiw(:,2, 46) /                                            &
     &       40.2110290,    38.5072500,    34.8932240,    27.2138020,   &
     &       21.2371640,    16.9805470,    13.9260910,    11.6707350,   &
     &        9.9551980,     8.6156180,     7.5460330,     6.6757400,   &
     &        5.3527110,     4.4016410,     3.6902360,     3.1415360,   &
     &        2.7079930,     1.9489220,     1.4681030,     0.9154940,   &
     &        0.6227080,     0.2987130,     0.1738250              /
! REF PdH8  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 46) /     -1.40283988753465 /
      data refh    (3, 46) /      0.17535498594183 /
      data gffq    (3, 46) /      0.55444971429388 /
      data gffh    (3, 46) /     -0.06930621428674 /
      data dftq    (3, 46) /      0.42916900000000 /
      data dfth    (3, 46) /     -0.05363000000000 /
      data pbcq    (3, 46) /     -1.40283988753465 /
      data pbch    (3, 46) /      0.17535498594183 /
      data clsq    (3, 46) /      0.55444971429388 /
      data clsh    (3, 46) /     -0.06930621428674 /
      data hcount  (3, 46) /      8.00000000000000 /
      data ascale  (3, 46) /      1.00000000000000 /
      data refcovcn(3, 46) /      5.62156480548985 /
      data refcn   (3, 46) /      5.70949602385229 /
      data refsys (3, 46) /    1 /
      data alphaiw(:,3, 46) /                                            &
     &       52.9449710,    51.8101820,    48.8650090,    40.9527250,   &
     &       33.5198470,    27.5254650,    22.8486080,    19.2026620,   &
     &       16.3345560,    14.0509400,    12.2094700,    10.7060500,   &
     &        8.4272930,     6.8085780,     5.6176560,     4.7154850,   &
     &        4.0151810,     2.8211020,     2.0891520,     1.2745700,   &
     &        0.8557330,     0.4038840,     0.2333960              /
      data refn(46) / 3 /
! REF Ag  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 47) /      0.00000000000088 /
      data refh    (1, 47) /      0.00000000000000 /
      data gffq    (1, 47) /      0.00000000000000 /
      data gffh    (1, 47) /      0.00000000000000 /
      data dftq    (1, 47) /      0.00000000000088 /
      data dfth    (1, 47) /      0.00000000000000 /
      data pbcq    (1, 47) /      0.00000000000088 /
      data pbch    (1, 47) /      0.00000000000000 /
      data clsq    (1, 47) /      0.00000000000000 /
      data clsh    (1, 47) /      0.00000000000000 /
      data hcount  (1, 47) /      0.00000000000000 /
      data ascale  (1, 47) /      1.00000000000000 /
      data refcovcn(1, 47) /      0.00000000000000 /
      data refcn   (1, 47) /      0.00000000000000 /
      data refsys (1, 47) /    1 /
      data alphaiw(:,1, 47) /                                            &
     &       54.1989880,    49.0489660,    38.9829400,    23.9821320,   &
     &       16.6050290,    12.6373760,    10.1995360,     8.5437370,   &
     &        7.3366070,     6.4116550,     5.6772120,     5.0784690,   &
     &        4.1592690,     3.4860530,     2.9720170,     2.5673730,   &
     &        2.2414010,     1.6540770,     1.2685970,     0.8095530,   &
     &        0.5581500,     0.2721620,     0.1594640              /
! REF AgH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 47) /      0.07743633209583 /
      data refh    (2, 47) /     -0.07743633209583 /
      data gffq    (2, 47) /      0.10670361771604 /
      data gffh    (2, 47) /     -0.10670361771604 /
      data dftq    (2, 47) /      0.13411500000000 /
      data dfth    (2, 47) /     -0.13411300000000 /
      data pbcq    (2, 47) /      0.07743633209583 /
      data pbch    (2, 47) /     -0.07743633209583 /
      data clsq    (2, 47) /      0.10670361771604 /
      data clsh    (2, 47) /     -0.10670361771604 /
      data hcount  (2, 47) /      1.00000000000000 /
      data ascale  (2, 47) /      1.00000000000000 /
      data refcovcn(2, 47) /      0.91215552676727 /
      data refcn   (2, 47) /      0.96788403280472 /
      data refsys (2, 47) /    1 /
      data alphaiw(:,2, 47) /                                            &
     &       36.6000980,    35.1208740,    31.6461790,    24.0228290,   &
     &       18.3425350,    14.4988310,    11.8463360,     9.9378870,   &
     &        8.5081750,     7.4002440,     6.5179040,     5.7995690,   &
     &        4.7030760,     3.9082530,     3.3079420,     2.8402610,   &
     &        2.4670520,     1.8034180,     1.3743830,     0.8703890,   &
     &        0.5975480,     0.2899250,     0.1695250              /
      data refn(47) / 2 /
! REF Cd  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 48) /      0.00000000000000 /
      data refh    (1, 48) /      0.00000000000000 /
      data gffq    (1, 48) /      0.00000000000000 /
      data gffh    (1, 48) /      0.00000000000000 /
      data dftq    (1, 48) /      0.00000000000000 /
      data dfth    (1, 48) /      0.00000000000000 /
      data pbcq    (1, 48) /      0.00000000000000 /
      data pbch    (1, 48) /      0.00000000000000 /
      data clsq    (1, 48) /      0.00000000000000 /
      data clsh    (1, 48) /      0.00000000000000 /
      data hcount  (1, 48) /      0.00000000000000 /
      data ascale  (1, 48) /      1.00000000000000 /
      data refcovcn(1, 48) /      0.00000000000000 /
      data refcn   (1, 48) /      0.00000000000000 /
      data refsys (1, 48) /    1 /
      data alphaiw(:,1, 48) /                                            &
     &       51.2430300,    48.3502990,    41.5746300,    27.7890000,   &
     &       19.1321820,    14.1382230,    11.0784560,     9.0587800,   &
     &        7.6378310,     6.5859030,     5.7753370,     5.1307120,   &
     &        4.1675160,     3.4798590,     2.9630260,     2.5600920,   &
     &        2.2373290,     1.6578750,     1.2772960,     0.8215180,   &
     &        0.5698100,     0.2806600,     0.1654590              /
! REF CdH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 48) /      0.33653584584200 /
      data refh    (2, 48) /     -0.16826792292100 /
      data gffq    (2, 48) /      0.21898540545170 /
      data gffh    (2, 48) /     -0.10949270272585 /
      data dftq    (2, 48) /      0.30941500000000 /
      data dfth    (2, 48) /     -0.15470600000000 /
      data pbcq    (2, 48) /      0.33653584584200 /
      data pbch    (2, 48) /     -0.16826792292100 /
      data clsq    (2, 48) /      0.21898540545170 /
      data clsh    (2, 48) /     -0.10949270272585 /
      data hcount  (2, 48) /      2.00000000000000 /
      data ascale  (2, 48) /      1.00000000000000 /
      data refcovcn(2, 48) /      1.77531555102521 /
      data refcn   (2, 48) /      1.95389378202525 /
      data refsys (2, 48) /    1 /
      data alphaiw(:,2, 48) /                                            &
     &       35.9140330,    35.1566180,    33.1068480,    27.1969530,   &
     &       21.5145310,    17.1191360,    13.8992970,    11.5355770,   &
     &        9.7648350,     8.4054680,     7.3368940,     6.4788070,   &
     &        5.1930790,     4.2809850,     3.6036050,     3.0826690,   &
     &        2.6710330,     1.9469920,     1.4831570,     0.9406720,   &
     &        0.6472420,     0.3156970,     0.1853400              /
      data refn(48) / 2 /
! REF In  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 49) /     -0.00000000000000 /
      data refh    (1, 49) /      0.00000000000000 /
      data gffq    (1, 49) /      0.00000000000000 /
      data gffh    (1, 49) /      0.00000000000000 /
      data dftq    (1, 49) /     -0.00000000000000 /
      data dfth    (1, 49) /      0.00000000000000 /
      data pbcq    (1, 49) /     -0.00000000000000 /
      data pbch    (1, 49) /      0.00000000000000 /
      data clsq    (1, 49) /      0.00000000000000 /
      data clsh    (1, 49) /      0.00000000000000 /
      data hcount  (1, 49) /      0.00000000000000 /
      data ascale  (1, 49) /      1.00000000000000 /
      data refcovcn(1, 49) /      0.00000000000000 /
      data refcn   (1, 49) /      0.00000000000000 /
      data refsys (1, 49) /    1 /
      data alphaiw(:,1, 49) /                                            &
     &       72.9150960,    66.0753600,    53.3578280,    33.5644110,   &
     &       22.4687340,    16.1472430,    12.3105260,     9.8245790,   &
     &        8.1173940,     6.8860560,     5.9610840,     5.2425400,   &
     &        4.1995990,     3.4778910,     2.9472540,     2.5398030,   &
     &        2.2168390,     1.6430710,     1.2690370,     0.8214960,   &
     &        0.5729700,     0.2844110,     0.1681820              /
! REF InH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 49) /      0.34258129840009 /
      data refh    (2, 49) /     -0.34258129840009 /
      data gffq    (2, 49) /      0.06391398485994 /
      data gffh    (2, 49) /     -0.06391398485994 /
      data dftq    (2, 49) /      0.03759200000000 /
      data dfth    (2, 49) /     -0.03759100000000 /
      data pbcq    (2, 49) /      0.34258129840009 /
      data pbch    (2, 49) /     -0.34258129840009 /
      data clsq    (2, 49) /      0.06391398485994 /
      data clsh    (2, 49) /     -0.06391398485994 /
      data hcount  (2, 49) /      1.00000000000000 /
      data ascale  (2, 49) /      1.00000000000000 /
      data refcovcn(2, 49) /      0.88719377220275 /
      data refcn   (2, 49) /      0.96330831417334 /
      data refsys (2, 49) /    1 /
      data alphaiw(:,2, 49) /                                            &
     &       68.5448320,    63.3499550,    52.9158640,    35.1620400,   &
     &       24.4638730,    18.0151280,    13.9204010,    11.1780650,   &
     &        9.2513440,     7.8406570,     6.7710770,     5.9359020,   &
     &        4.7209280,     3.8821540,     3.2690480,     2.8016450,   &
     &        2.4338840,     1.7877840,     1.3722790,     0.8814810,   &
     &        0.6120400,     0.3021170,     0.1782190              /
! REF InH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 49) /      0.26652372380627 /
      data refh    (3, 49) /     -0.13326186190313 /
      data gffq    (3, 49) /      0.10806425732282 /
      data gffh    (3, 49) /     -0.05403212866141 /
      data dftq    (3, 49) /      0.24762500000000 /
      data dfth    (3, 49) /     -0.12381400000000 /
      data pbcq    (3, 49) /      0.26652372380627 /
      data pbch    (3, 49) /     -0.13326186190313 /
      data clsq    (3, 49) /      0.10806425732282 /
      data clsh    (3, 49) /     -0.05403212866141 /
      data hcount  (3, 49) /      2.00000000000000 /
      data ascale  (3, 49) /      1.00000000000000 /
      data refcovcn(3, 49) /      1.78495637384615 /
      data refcn   (3, 49) /      1.93784277625627 /
      data refsys (3, 49) /    1 /
      data alphaiw(:,3, 49) /                                            &
     &       50.7622140,    48.0385490,    43.0567370,    32.8278830,   &
     &       24.7634540,    19.0651230,    15.0969960,    12.2851460,   &
     &       10.2375520,     8.7031490,     7.5220080,     6.5906520,   &
     &        5.2252970,     4.2790840,     3.5880180,     3.0628180,   &
     &        2.6512680,     1.9334490,     1.4763250,     0.9418740,   &
     &        0.6513060,     0.3198580,     0.1882630              /
! REF InH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 49) /      0.20507380022703 /
      data refh    (4, 49) /     -0.06835793340901 /
      data gffq    (4, 49) /      0.14171698994803 /
      data gffh    (4, 49) /     -0.04723899664934 /
      data dftq    (4, 49) /      0.37119300000000 /
      data dfth    (4, 49) /     -0.12373100000000 /
      data pbcq    (4, 49) /      0.20507380022703 /
      data pbch    (4, 49) /     -0.06835793340901 /
      data clsq    (4, 49) /      0.14171698994803 /
      data clsh    (4, 49) /     -0.04723899664934 /
      data hcount  (4, 49) /      3.00000000000000 /
      data ascale  (4, 49) /      1.00000000000000 /
      data refcovcn(4, 49) /      2.70420959057537 /
      data refcn   (4, 49) /      2.93528671852710 /
      data refsys (4, 49) /    1 /
      data alphaiw(:,4, 49) /                                            &
     &       41.1871070,    40.4130170,    38.2892500,    31.9210850,   &
     &       25.4481130,    20.2225040,    16.3010840,    13.3954500,   &
     &       11.2196820,     9.5597380,     8.2670060,     7.2399920,   &
     &        5.7255130,     4.6728770,     3.9045910,     3.3221260,   &
     &        2.8671790,     2.0782430,     1.5798240,     1.0020180,   &
     &        0.6904450,     0.3375630,     0.1982910              /
      data refn(49) / 4 /
! REF Sn  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 50) /     -0.00000000000001 /
      data refh    (1, 50) /      0.00000000000000 /
      data gffq    (1, 50) /      0.00000000000000 /
      data gffh    (1, 50) /      0.00000000000000 /
      data dftq    (1, 50) /     -0.00000000000001 /
      data dfth    (1, 50) /      0.00000000000000 /
      data pbcq    (1, 50) /     -0.00000000000001 /
      data pbch    (1, 50) /      0.00000000000000 /
      data clsq    (1, 50) /      0.00000000000000 /
      data clsh    (1, 50) /      0.00000000000000 /
      data hcount  (1, 50) /      0.00000000000000 /
      data ascale  (1, 50) /      1.00000000000000 /
      data refcovcn(1, 50) /      0.00000000000000 /
      data refcn   (1, 50) /      0.00000000000000 /
      data refsys (1, 50) /    1 /
      data alphaiw(:,1, 50) /                                            &
     &       57.3040270,    54.4476260,    47.7957070,    33.6841460,   &
     &       23.7376670,    17.3960520,    13.3024310,    10.5620400,   &
     &        8.6525610,     7.2708170,     6.2366020,     5.4393040,   &
     &        4.2988630,     3.5266460,     2.9701000,     2.5497820,   &
     &        2.2208960,     1.6446800,     1.2728700,     0.8288590,   &
     &        0.5812410,     0.2912600,     0.1732200              /
! REF SnH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 50) /      0.11709105906305 /
      data refh    (2, 50) /     -0.11709105906306 /
      data gffq    (2, 50) /      0.03599066704066 /
      data gffh    (2, 50) /     -0.03599066704066 /
      data dftq    (2, 50) /      0.12898600000000 /
      data dfth    (2, 50) /     -0.12898400000000 /
      data pbcq    (2, 50) /      0.11709105906305 /
      data pbch    (2, 50) /     -0.11709105906306 /
      data clsq    (2, 50) /      0.03599066704066 /
      data clsh    (2, 50) /     -0.03599066704066 /
      data hcount  (2, 50) /      1.00000000000000 /
      data ascale  (2, 50) /      1.00000000000000 /
      data refcovcn(2, 50) /      0.90042437628478 /
      data refcn   (2, 50) /      0.95144638754491 /
      data refsys (2, 50) /    1 /
      data alphaiw(:,2, 50) /                                            &
     &       53.7298320,    51.4329790,    46.0716700,    34.2024090,   &
     &       25.1302790,    18.9316540,    14.7246270,    11.8066270,   &
     &        9.7217990,     8.1863100,     7.0228060,     6.1183050,   &
     &        4.8155710,     3.9303330,     3.2929680,     2.8132790,   &
     &        2.4396930,     1.7907330,     1.3769680,     0.8891430,   &
     &        0.6203820,     0.3088870,     0.1831710              /
! REF SnH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 50) /      0.20024277858377 /
      data refh    (3, 50) /     -0.10012138929188 /
      data gffq    (3, 50) /      0.04368851386536 /
      data gffh    (3, 50) /     -0.02184425693268 /
      data dftq    (3, 50) /      0.08512300000000 /
      data dfth    (3, 50) /     -0.04256400000000 /
      data pbcq    (3, 50) /      0.20024277858377 /
      data pbch    (3, 50) /     -0.10012138929188 /
      data clsq    (3, 50) /      0.04368851386536 /
      data clsh    (3, 50) /     -0.02184425693268 /
      data hcount  (3, 50) /      2.00000000000000 /
      data ascale  (3, 50) /      1.00000000000000 /
      data refcovcn(3, 50) /      1.84687551160093 /
      data refcn   (3, 50) /      1.95049412276785 /
      data refsys (3, 50) /    1 /
      data alphaiw(:,3, 50) /                                            &
     &       53.3912050,    51.4589370,    46.7536920,    35.7231120,   &
     &       26.8682930,    20.5832790,    16.1845180,    13.0610500,   &
     &       10.7905050,     9.0973330,     7.8031170,     6.7910320,   &
     &        5.3263460,     4.3288220,     3.6113910,     3.0730140,   &
     &        2.6553170,     1.9347190,     1.4797110,     0.9488200,   &
     &        0.6592330,     0.3264620,     0.1931150              /
! REF SnH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 50) /      0.07115823556834 /
      data refh    (4, 50) /     -0.02371941185611 /
      data gffq    (4, 50) /      0.03463534758499 /
      data gffh    (4, 50) /     -0.01154511586166 /
      data dftq    (4, 50) /      0.19655800000000 /
      data dfth    (4, 50) /     -0.06551966666667 /
      data pbcq    (4, 50) /      0.07115823556834 /
      data pbch    (4, 50) /     -0.02371941185611 /
      data clsq    (4, 50) /      0.03463534758499 /
      data clsh    (4, 50) /     -0.01154511586166 /
      data hcount  (4, 50) /      3.00000000000000 /
      data ascale  (4, 50) /      1.00000000000000 /
      data refcovcn(4, 50) /      2.77047146659601 /
      data refcn   (4, 50) /      2.92590527066264 /
      data refsys (4, 50) /    1 /
      data alphaiw(:,4, 50) /                                            &
     &       48.1721000,    46.9654470,    43.8406630,    35.4940690,   &
     &       27.7965480,    21.8303470,    17.4239690,    14.1866160,   &
     &       11.7798410,     9.9575870,     8.5500830,     7.4414740,   &
     &        5.8269560,     4.7227970,     3.9280720,     3.3323920,   &
     &        2.8712630,     2.0794750,     1.5831290,     1.0088640,   &
     &        0.6982730,     0.3440760,     0.2030650              /
! REF SnH4  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (5, 50) /      0.02040246592511 /
      data refh    (5, 50) /     -0.00510061648128 /
      data gffq    (5, 50) /      0.01418221277464 /
      data gffh    (5, 50) /     -0.00354555319366 /
      data dftq    (5, 50) /      0.26602400000000 /
      data dfth    (5, 50) /     -0.06650775000000 /
      data pbcq    (5, 50) /      0.02040246592511 /
      data pbch    (5, 50) /     -0.00510061648128 /
      data clsq    (5, 50) /      0.01418221277464 /
      data clsh    (5, 50) /     -0.00354555319366 /
      data hcount  (5, 50) /      4.00000000000000 /
      data ascale  (5, 50) /      1.00000000000000 /
      data refcovcn(5, 50) /      3.70466711294240 /
      data refcn   (5, 50) /      3.91232527967725 /
      data refsys (5, 50) /    1 /
      data alphaiw(:,5, 50) /                                            &
     &       44.3809730,    43.6657010,    41.6751380,    35.4583760,   &
     &       28.7575380,    23.0706960,    18.6492860,    15.2988620,   &
     &       12.7583260,    10.8093490,     9.2904440,     8.0867420,   &
     &        6.3242650,     5.1145440,     4.2431700,     3.5905930,   &
     &        3.0863030,     2.2237000,     1.6862000,     1.0687380,   &
     &        0.7372220,     0.3616620,     0.2130010              /
      data refn(50) / 5 /
! REF Sb  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 51) /     -0.00000000000000 /
      data refh    (1, 51) /      0.00000000000000 /
      data gffq    (1, 51) /      0.00000000000000 /
      data gffh    (1, 51) /      0.00000000000000 /
      data dftq    (1, 51) /     -0.00000000000000 /
      data dfth    (1, 51) /      0.00000000000000 /
      data pbcq    (1, 51) /     -0.00000000000000 /
      data pbch    (1, 51) /      0.00000000000000 /
      data clsq    (1, 51) /      0.00000000000000 /
      data clsh    (1, 51) /      0.00000000000000 /
      data hcount  (1, 51) /      0.00000000000000 /
      data ascale  (1, 51) /      1.00000000000000 /
      data refcovcn(1, 51) /      0.00000000000000 /
      data refcn   (1, 51) /      0.00000000000000 /
      data refsys (1, 51) /    1 /
      data alphaiw(:,1, 51) /                                            &
     &       44.8358450,    43.5130560,    40.0926450,    31.1774780,   &
     &       23.4511520,    17.8471750,    13.9239600,    11.1566290,   &
     &        9.1627500,     7.6898730,     6.5744680,     5.7098380,   &
     &        4.4725460,     3.6404470,     3.0472370,     2.6044190,   &
     &        2.2616350,     1.6693460,     1.2920700,     0.8442200,   &
     &        0.5942970,     0.2999110,     0.1791200              /
! REF SbH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 51) /      0.11698834533765 /
      data refh    (2, 51) /     -0.11698834533764 /
      data gffq    (2, 51) /     -0.01439446368141 /
      data gffh    (2, 51) /      0.01439446368141 /
      data dftq    (2, 51) /      0.05481200000000 /
      data dfth    (2, 51) /     -0.05481000000000 /
      data pbcq    (2, 51) /      0.11698834533765 /
      data pbch    (2, 51) /     -0.11698834533764 /
      data clsq    (2, 51) /     -0.01439446368141 /
      data clsh    (2, 51) /      0.01439446368141 /
      data hcount  (2, 51) /      1.00000000000000 /
      data ascale  (2, 51) /      1.00000000000000 /
      data refcovcn(2, 51) /      0.93580947053485 /
      data refcn   (2, 51) /      0.97493375701249 /
      data refsys (2, 51) /    1 /
      data alphaiw(:,2, 51) /                                            &
     &       45.9916410,    44.7450290,    41.5208600,    32.9820310,   &
     &       25.3160810,    19.5590470,    15.4150740,    12.4297230,   &
     &       10.2444980,     8.6111660,     7.3634730,     6.3902070,   &
     &        4.9895020,     4.0440290,     3.3698710,     2.8676280,   &
     &        2.4801170,     1.8150710,     1.3958700,     0.9043070,   &
     &        0.6333220,     0.3175040,     0.1890550              /
! REF SbH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 51) /      0.18480068410394 /
      data refh    (3, 51) /     -0.09240034205197 /
      data gffq    (3, 51) /     -0.01543201581300 /
      data gffh    (3, 51) /      0.00771600790650 /
      data dftq    (3, 51) /      0.09655800000000 /
      data dfth    (3, 51) /     -0.04828200000000 /
      data pbcq    (3, 51) /      0.18480068410394 /
      data pbch    (3, 51) /     -0.09240034205197 /
      data clsq    (3, 51) /     -0.01543201581300 /
      data clsh    (3, 51) /      0.00771600790650 /
      data hcount  (3, 51) /      2.00000000000000 /
      data ascale  (3, 51) /      1.00000000000000 /
      data refcovcn(3, 51) /      1.87397783659382 /
      data refcn   (3, 51) /      1.95228160320121 /
      data refsys (3, 51) /    1 /
      data alphaiw(:,3, 51) /                                            &
     &       46.6496880,    45.5197710,    42.5927060,    34.6039430,   &
     &       27.0775160,    21.2059700,    16.8636310,    13.6742900,   &
     &       11.3067400,     9.5188430,     8.1427680,     7.0635060,   &
     &        5.5024820,     4.4452150,     3.6909720,     3.1298080,   &
     &        2.6978790,     1.9604550,     1.4994800,     0.9643160,   &
     &        0.6723070,     0.3350840,     0.1989840              /
! REF SbH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 51) /      0.23470973538400 /
      data refh    (4, 51) /     -0.07823657846134 /
      data gffq    (4, 51) /     -0.00985357197761 /
      data gffh    (4, 51) /      0.00328452399254 /
      data dftq    (4, 51) /      0.12434700000000 /
      data dfth    (4, 51) /     -0.04144666666667 /
      data pbcq    (4, 51) /      0.23470973538400 /
      data pbch    (4, 51) /     -0.07823657846134 /
      data clsq    (4, 51) /     -0.00985357197761 /
      data clsh    (4, 51) /      0.00328452399254 /
      data hcount  (4, 51) /      3.00000000000000 /
      data ascale  (4, 51) /      1.00000000000000 /
      data refcovcn(4, 51) /      2.81393944504634 /
      data refcn   (4, 51) /      2.93146774469466 /
      data refsys (4, 51) /    1 /
      data alphaiw(:,4, 51) /                                            &
     &       46.7552750,    45.8323020,    43.3346180,    36.0394380,   &
     &       28.7272660,    22.7845200,    18.2688140,    14.8903330,   &
     &       12.3496050,    10.4129670,     8.9123290,     7.7296420,   &
     &        6.0113260,     4.8438310,     4.0103740,     3.3908020,   &
     &        2.9147740,     2.1053690,     1.6027900,     1.0241710,   &
     &        0.7112070,     0.3526470,     0.2089120              /
      data refn(51) / 4 /
! REF Te  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 52) /      0.00000000000001 /
      data refh    (1, 52) /      0.00000000000000 /
      data gffq    (1, 52) /      0.00000000000000 /
      data gffh    (1, 52) /      0.00000000000000 /
      data dftq    (1, 52) /      0.00000000000001 /
      data dfth    (1, 52) /      0.00000000000000 /
      data pbcq    (1, 52) /      0.00000000000001 /
      data pbch    (1, 52) /      0.00000000000000 /
      data clsq    (1, 52) /      0.00000000000000 /
      data clsh    (1, 52) /      0.00000000000000 /
      data hcount  (1, 52) /      0.00000000000000 /
      data ascale  (1, 52) /      1.00000000000000 /
      data refcovcn(1, 52) /      0.00000000000000 /
      data refcn   (1, 52) /      0.00000000000000 /
      data refsys (1, 52) /    1 /
      data alphaiw(:,1, 52) /                                            &
     &       38.7558670,    37.8891050,    35.5765770,    29.0541470,   &
     &       22.7985480,    17.8842260,    14.2354170,    11.5477160,   &
     &        9.5486370,     8.0375580,     6.8745420,     5.9631130,   &
     &        4.6477480,     3.7603970,     3.1299390,     2.6624490,   &
     &        2.3034360,     1.6910060,     1.3067460,     0.8554460,   &
     &        0.6045040,     0.3075880,     0.1846460              /
! REF TeH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 52) /     -0.00520338227699 /
      data refh    (2, 52) /      0.00520338227697 /
      data gffq    (2, 52) /     -0.09115200126999 /
      data gffh    (2, 52) /      0.09115200126999 /
      data dftq    (2, 52) /     -0.01560200000000 /
      data dfth    (2, 52) /      0.01560400000000 /
      data pbcq    (2, 52) /     -0.00520338227699 /
      data pbch    (2, 52) /      0.00520338227697 /
      data clsq    (2, 52) /     -0.09115200126999 /
      data clsh    (2, 52) /      0.09115200126999 /
      data hcount  (2, 52) /      1.00000000000000 /
      data ascale  (2, 52) /      1.00000000000000 /
      data refcovcn(2, 52) /      0.94900106848812 /
      data refcn   (2, 52) /      0.98114838477859 /
      data refsys (2, 52) /    1 /
      data alphaiw(:,2, 52) /                                            &
     &       41.2800660,    40.4036870,    38.0648030,    31.4147320,   &
     &       24.9165410,    19.7095440,    15.7789570,    12.8463230,   &
     &       10.6436490,     8.9662810,     7.6680330,     6.6463830,   &
     &        5.1661270,     4.1647840,     3.4530650,     2.9259730,   &
     &        2.5221220,     1.8367870,     1.4105310,     0.9154730,   &
     &        0.6434690,     0.3251430,     0.1945560              /
! REF TeH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 52) /     -0.00151877920413 /
      data refh    (3, 52) /      0.00075938960206 /
      data gffq    (3, 52) /     -0.09678003345023 /
      data gffh    (3, 52) /      0.04839001672511 /
      data dftq    (3, 52) /     -0.03860500000000 /
      data dfth    (3, 52) /      0.01930100000000 /
      data pbcq    (3, 52) /     -0.00151877920413 /
      data pbch    (3, 52) /      0.00075938960206 /
      data clsq    (3, 52) /     -0.09678003345023 /
      data clsh    (3, 52) /      0.04839001672511 /
      data hcount  (3, 52) /      2.00000000000000 /
      data ascale  (3, 52) /      1.00000000000000 /
      data refcovcn(3, 52) /      1.89954395376061 /
      data refcn   (3, 52) /      1.96387521222899 /
      data refsys (3, 52) /    1 /
      data alphaiw(:,3, 52) /                                            &
     &       43.3767540,    42.5220370,    40.2233370,    33.5679210,   &
     &       26.9051580,    21.4529440,    17.2695530,    14.1098870,   &
     &       11.7148730,     9.8784450,     8.4497140,     7.3210330,   &
     &        5.6796140,     4.5661840,     3.7742540,     3.1881760,   &
     &        2.7398680,     1.9821020,     1.5140480,     0.9753820,   &
     &        0.6823680,     0.3426700,     0.2044490              /
      data refn(52) / 3 /
! REF I - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 53) /      0.00000000000001 /
      data refh    (1, 53) /      0.00000000000000 /
      data gffq    (1, 53) /      0.00000000000000 /
      data gffh    (1, 53) /      0.00000000000000 /
      data dftq    (1, 53) /      0.00000000000001 /
      data dfth    (1, 53) /      0.00000000000000 /
      data pbcq    (1, 53) /      0.00000000000001 /
      data pbch    (1, 53) /      0.00000000000000 /
      data clsq    (1, 53) /      0.00000000000000 /
      data clsh    (1, 53) /      0.00000000000000 /
      data hcount  (1, 53) /      0.00000000000000 /
      data ascale  (1, 53) /      1.00000000000000 /
      data refcovcn(1, 53) /      0.00000000000000 /
      data refcn   (1, 53) /      0.00000000000000 /
      data refsys (1, 53) /    1 /
      data alphaiw(:,1, 53) /                                            &
     &       32.5364480,    32.0135530,    30.5701660,    26.1371840,   &
     &       21.4024280,    17.3505230,    14.1439250,    11.6664030,   &
     &        9.7557500,     8.2712240,     7.1046010,     6.1759850,   &
     &        4.8153900,     3.8867100,     3.2241390,     2.7330620,   &
     &        2.3571070,     1.7206990,     1.3260350,     0.8674990,   &
     &        0.6140980,     0.3141040,     0.1892860              /
! REF IH  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 53) /     -0.18609272966349 /
      data refh    (2, 53) /      0.18609272966349 /
      data gffq    (2, 53) /     -0.13740767685282 /
      data gffh    (2, 53) /      0.13740767685282 /
      data dftq    (2, 53) /     -0.07928000000000 /
      data dfth    (2, 53) /      0.07928200000000 /
      data pbcq    (2, 53) /     -0.18609272966349 /
      data pbch    (2, 53) /      0.18609272966349 /
      data clsq    (2, 53) /     -0.13740767685282 /
      data clsh    (2, 53) /      0.13740767685282 /
      data hcount  (2, 53) /      1.00000000000000 /
      data ascale  (2, 53) /      1.00000000000000 /
      data refcovcn(2, 53) /      0.91239969640123 /
      data refcn   (2, 53) /      0.99682171802295 /
      data refsys (2, 53) /    1 /
      data alphaiw(:,2, 53) /                                            &
     &       35.5939760,    35.0391840,    33.5058920,    28.7725970,   &
     &       23.6664920,    19.2510560,    15.7268020,    12.9864250,   &
     &       10.8631350,     9.2076450,     7.9032670,     6.8629800,   &
     &        5.3359890,     4.2925500,     3.5482480,     2.9972560,   &
     &        2.5762480,     1.8666410,     1.4298640,     0.9275130,   &
     &        0.6530570,     0.3316710,     0.1992050              /
      data refn(53) / 2 /
! REF 1e  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 54) /     -0.00000000000000 /
      data refh    (1, 54) /      0.00000000000000 /
      data gffq    (1, 54) /      0.00000000000000 /
      data gffh    (1, 54) /      0.00000000000000 /
      data dftq    (1, 54) /     -0.00000000000000 /
      data dfth    (1, 54) /      0.00000000000000 /
      data pbcq    (1, 54) /     -0.00000000000000 /
      data pbch    (1, 54) /      0.00000000000000 /
      data clsq    (1, 54) /      0.00000000000000 /
      data clsh    (1, 54) /      0.00000000000000 /
      data hcount  (1, 54) /      0.00000000000000 /
      data ascale  (1, 54) /      1.00000000000000 /
      data refcovcn(1, 54) /      0.00000000000000 /
      data refcn   (1, 54) /      0.00000000000000 /
      data refsys (1, 54) /    1 /
      data alphaiw(:,1, 54) /                                            &
     &       27.3277050,    27.0110760,    26.1157860,    23.1734500,   &
     &       19.7140260,    16.4952160,    13.7782840,    11.5745650,   &
     &        9.8106950,     8.3998660,     7.2654260,     6.3458240,   &
     &        4.9718440,     4.0169210,     3.3286250,     2.8159860,   &
     &        2.4230090,     1.7595470,     1.3513270,     0.8819580,   &
     &        0.6246870,     0.3206970,     0.1938380              /
      data refn(54) / 1 /
! REF Cs  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 55) /      0.00000000000000 /
      data refh    (1, 55) /      0.00000000000000 /
      data gffq    (1, 55) /      0.00000000000000 /
      data gffh    (1, 55) /      0.00000000000000 /
      data dftq    (1, 55) /      0.00000000000000 /
      data dfth    (1, 55) /      0.00000000000000 /
      data pbcq    (1, 55) /      0.00000000000000 /
      data pbch    (1, 55) /      0.00000000000000 /
      data clsq    (1, 55) /      0.00000000000000 /
      data clsh    (1, 55) /      0.00000000000000 /
      data hcount  (1, 55) /      0.00000000000000 /
      data ascale  (1, 55) /      1.00000000000000 /
      data refcovcn(1, 55) /      0.00000000000000 /
      data refcn   (1, 55) /      0.00000000000000 /
      data refsys (1, 55) /    1 /
      data alphaiw(:,1, 55) /                                            &
     &      537.0897540,   251.2031120,   104.6716850,    40.1908390,   &
     &       24.9381150,    18.3967650,    14.5779860,    11.9651660,   &
     &       10.0264350,     8.5234170,     7.3270290,     6.3574360,   &
     &        4.8990430,     3.8742590,     3.1301840,     2.5751510,   &
     &        2.1515440,     1.4501300,     1.0384390,     0.6036570,   &
     &        0.3927120,     0.1776630,     0.1006850              /
! REF CsH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 55) /      0.44073165640477 /
      data refh    (2, 55) /     -0.44073165640476 /
      data gffq    (2, 55) /      0.46524059775602 /
      data gffh    (2, 55) /     -0.46524059775602 /
      data dftq    (2, 55) /      0.44691000000000 /
      data dfth    (2, 55) /     -0.44691400000000 /
      data pbcq    (2, 55) /      0.44073165640477 /
      data pbch    (2, 55) /     -0.44073165640476 /
      data clsq    (2, 55) /      0.46524059775602 /
      data clsh    (2, 55) /     -0.46524059775602 /
      data hcount  (2, 55) /      1.00000000000000 /
      data ascale  (2, 55) /      1.00000000000000 /
      data refcovcn(2, 55) /      0.78131762864252 /
      data refcn   (2, 55) /      0.99085899461464 /
      data refsys (2, 55) /    1 /
      data alphaiw(:,2, 55) /                                            &
     &       65.7018290,    59.8918430,    49.3703130,    33.8726930,   &
     &       25.2509890,    19.8576040,    16.1061580,    13.3278610,   &
     &       11.1931740,     9.5136360,     8.1692610,     7.0782580,   &
     &        5.4392600,     4.2914390,     3.4609450,     2.8433200,   &
     &        2.3731020,     1.5968080,     1.1424900,     0.6636650,   &
     &        0.4316520,     0.1952610,     0.1106580              /
      data refn(55) / 2 /
! REF Ba  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 56) /      0.00000000000000 /
      data refh    (1, 56) /      0.00000000000000 /
      data gffq    (1, 56) /      0.00000000000000 /
      data gffh    (1, 56) /      0.00000000000000 /
      data dftq    (1, 56) /      0.00000000000000 /
      data dfth    (1, 56) /      0.00000000000000 /
      data pbcq    (1, 56) /      0.00000000000000 /
      data pbch    (1, 56) /      0.00000000000000 /
      data clsq    (1, 56) /      0.00000000000000 /
      data clsh    (1, 56) /      0.00000000000000 /
      data hcount  (1, 56) /      0.00000000000000 /
      data ascale  (1, 56) /      1.00000000000000 /
      data refcovcn(1, 56) /      0.00000000000000 /
      data refcn   (1, 56) /      0.00000000000000 /
      data refsys (1, 56) /    1 /
      data alphaiw(:,1, 56) /                                            &
     &      288.2408830,   220.1240810,   131.4902760,    55.2586600,   &
     &       31.5893280,    21.6257080,    16.3339130,    13.0455460,   &
     &       10.7783530,     9.1050960,     7.8133370,     6.7850620,   &
     &        5.2566000,     4.1863800,     3.4065330,     2.8211540,   &
     &        2.3711900,     1.6174560,     1.1682080,     0.6862840,   &
     &        0.4490360,     0.2044320,     0.1161510              /
! REF BaH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 56) /      0.39462085324502 /
      data refh    (2, 56) /     -0.39462085324502 /
      data gffq    (2, 56) /      0.42198236936188 /
      data gffh    (2, 56) /     -0.42198236936188 /
      data dftq    (2, 56) /      0.34401400000000 /
      data dfth    (2, 56) /     -0.34401600000000 /
      data pbcq    (2, 56) /      0.39462085324502 /
      data pbch    (2, 56) /     -0.39462085324502 /
      data clsq    (2, 56) /      0.42198236936188 /
      data clsh    (2, 56) /     -0.42198236936188 /
      data hcount  (2, 56) /      1.00000000000000 /
      data ascale  (2, 56) /      1.00000000000000 /
      data refcovcn(2, 56) /      0.78501458609867 /
      data refcn   (2, 56) /      0.97966156728304 /
      data refsys (2, 56) /    1 /
      data alphaiw(:,2, 56) /                                            &
     &      309.5716070,   175.3545830,    94.6066250,    46.0830780,   &
     &       30.0147260,    22.0684410,    17.2886740,    14.0639130,   &
     &       11.7253160,     9.9472460,     8.5510400,     7.4290820,   &
     &        5.7511370,     4.5735640,     3.7161310,     3.0735940,   &
     &        2.5806020,     1.7570230,     1.2676610,     0.7440160,   &
     &        0.4866820,     0.2215860,     0.1259200              /
! REF BaH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 56) /      0.56717887013781 /
      data refh    (3, 56) /     -0.28358943506890 /
      data gffq    (3, 56) /      0.63397117832958 /
      data gffh    (3, 56) /     -0.31698558916479 /
      data dftq    (3, 56) /      0.80245000000000 /
      data dfth    (3, 56) /     -0.40123000000000 /
      data pbcq    (3, 56) /      0.56717887013781 /
      data pbch    (3, 56) /     -0.28358943506890 /
      data clsq    (3, 56) /      0.63397117832958 /
      data clsh    (3, 56) /     -0.31698558916479 /
      data hcount  (3, 56) /      2.00000000000000 /
      data ascale  (3, 56) /      1.00000000000000 /
      data refcovcn(3, 56) /      1.47819220471197 /
      data refcn   (3, 56) /      1.84668170996467 /
      data refsys (3, 56) /    1 /
      data alphaiw(:,3, 56) /                                            &
     &       66.9605790,    63.0034800,    54.8221920,    39.7272000,   &
     &       29.6372990,    23.0260300,    18.4860590,    15.2106190,   &
     &       12.7502140,    10.8439290,     9.3316440,     8.1096160,   &
     &        6.2753070,     4.9860280,     4.0475020,     3.3448150,   &
     &        2.8062400,     1.9080120,     1.3753850,     0.8064740,   &
     &        0.5272920,     0.2399460,     0.1363100              /
      data refn(56) / 3 /
! REF La  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 57) /     -0.00000000016424 /
      data refh    (1, 57) /      0.00000000000000 /
      data gffq    (1, 57) /      0.00000000000000 /
      data gffh    (1, 57) /      0.00000000000000 /
      data dftq    (1, 57) /     -0.00000000016424 /
      data dfth    (1, 57) /      0.00000000000000 /
      data pbcq    (1, 57) /     -0.00000000016424 /
      data pbch    (1, 57) /      0.00000000000000 /
      data clsq    (1, 57) /      0.00000000000000 /
      data clsh    (1, 57) /      0.00000000000000 /
      data hcount  (1, 57) /      0.00000000000000 /
      data ascale  (1, 57) /      1.00000000000000 /
      data refcovcn(1, 57) /      0.00000000000000 /
      data refcn   (1, 57) /      0.00000000000000 /
      data refsys (1, 57) /    1 /
      data alphaiw(:,1, 57) /                                            &
     &      215.8140220,   176.8449270,   118.3158760,    56.5506640,   &
     &       33.7025040,    23.2152200,    17.4335570,    13.8111350,   &
     &       11.3289880,     9.5173300,     8.1343090,     7.0437020,   &
     &        5.4382140,     4.3231050,     3.5139470,     2.9079640,   &
     &        2.4428210,     1.6648090,     1.2017740,     0.7056550,   &
     &        0.4616280,     0.2101180,     0.1193250              /
! REF LaH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 57) /      0.14182729572798 /
      data refh    (2, 57) /     -0.07091364827865 /
      data gffq    (2, 57) /      0.65599616057853 /
      data gffh    (2, 57) /     -0.32799808028927 /
      data dftq    (2, 57) /      0.59641000000000 /
      data dfth    (2, 57) /     -0.29819600000000 /
      data pbcq    (2, 57) /      0.14182729572798 /
      data pbch    (2, 57) /     -0.07091364827865 /
      data clsq    (2, 57) /      0.65599616057853 /
      data clsh    (2, 57) /     -0.32799808028927 /
      data hcount  (2, 57) /      2.00000000000000 /
      data ascale  (2, 57) /      1.00000000000000 /
      data refcovcn(2, 57) /      1.60493415835961 /
      data refcn   (2, 57) /      1.93733589109731 /
      data refsys (2, 57) /    1 /
      data alphaiw(:,2, 57) /                                            &
     &      174.1703670,   109.8104790,    78.4184010,    48.3320410,   &
     &       33.8987960,    25.4468050,    19.9742230,    16.1822840,   &
     &       13.4194490,    11.3279880,     9.6974550,     8.3967050,   &
     &        6.4683870,     5.1269150,     4.1557730,     3.4309420,   &
     &        2.8764740,     1.9535170,     1.4072110,     0.8245040,   &
     &        0.5388600,     0.2450480,     0.1391110              /
! REF LaH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 57) /      0.61948745795610 /
      data refh    (3, 57) /     -0.20649581931870 /
      data gffq    (3, 57) /      0.83084860530330 /
      data gffh    (3, 57) /     -0.27694953510110 /
      data dftq    (3, 57) /      0.90461800000000 /
      data dfth    (3, 57) /     -0.30154533333333 /
      data pbcq    (3, 57) /      0.61948745795610 /
      data pbch    (3, 57) /     -0.20649581931870 /
      data clsq    (3, 57) /      0.83084860530330 /
      data clsh    (3, 57) /     -0.27694953510110 /
      data hcount  (3, 57) /      3.00000000000000 /
      data ascale  (3, 57) /      1.00000000000000 /
      data refcovcn(3, 57) /      2.41715875994685 /
      data refcn   (3, 57) /      2.91753935596640 /
      data refsys (3, 57) /    1 /
      data alphaiw(:,3, 57) /                                            &
     &       66.6599540,    64.3784460,    58.7168170,    45.1581050,   &
     &       34.3061210,    26.6622110,    21.2769290,    17.3778510,   &
     &       14.4673110,    12.2338560,    10.4793230,     9.0738430,   &
     &        6.9849920,     5.5308960,     4.4789930,     3.6947640,   &
     &        3.0955470,     2.0997350,     1.5114130,     0.8848790,   &
     &        0.5781220,     0.2628230,     0.1491850              /
      data refn(57) / 3 /
! REF CeH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 58) /      0.54768224094954 /
      data refh    (1, 58) /     -0.18256074698318 /
      data gffq    (1, 58) /      0.78733393312177 /
      data gffh    (1, 58) /     -0.26244464437392 /
      data dftq    (1, 58) /      0.54768224094954 /
      data dfth    (1, 58) /     -0.18256074698318 /
      data pbcq    (1, 58) /      0.54768224094954 /
      data pbch    (1, 58) /     -0.18256074698318 /
      data clsq    (1, 58) /      0.78733393312177 /
      data clsh    (1, 58) /     -0.26244464437392 /
      data hcount  (1, 58) /      3.00000000000000 /
      data ascale  (1, 58) /      1.00000000000000 /
      data refcovcn(1, 58) /      2.32446531201143 /
      data refcn   (1, 58) /      2.79905712137645 /
      data refsys (1, 58) /    1 /
      data alphaiw(:,1, 58) /                                            &
     &       63.1803350,    60.8655150,    55.6077000,    42.9730420,   &
     &       32.8160560,    25.6410650,    20.5717660,    16.8914020,   &
     &       14.1378050,    12.0210120,    10.3558470,     9.0204850,   &
     &        7.0330480,     5.6466750,     4.6410990,     3.8887730,   &
     &        3.3113370,     2.3420650,     1.7576480,     1.1111050,   &
     &        0.7737220,     0.3918750,     0.2365100              /
      data refn(58) / 1 /
! REF Pr  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 59) /     -0.00000000021208 /
      data refh    (1, 59) /      0.00000000000000 /
      data gffq    (1, 59) /      0.00000000000000 /
      data gffh    (1, 59) /      0.00000000000000 /
      data dftq    (1, 59) /     -0.00000000021208 /
      data dfth    (1, 59) /      0.00000000000000 /
      data pbcq    (1, 59) /     -0.00000000021208 /
      data pbch    (1, 59) /      0.00000000000000 /
      data clsq    (1, 59) /      0.00000000000000 /
      data clsh    (1, 59) /      0.00000000000000 /
      data hcount  (1, 59) /      0.00000000000000 /
      data ascale  (1, 59) /      1.00000000000000 /
      data refcovcn(1, 59) /      0.00000000000000 /
      data refcn   (1, 59) /      0.00000000000000 /
      data refsys (1, 59) /    1 /
      data alphaiw(:,1, 59) /                                            &
     &      253.6075830,   185.3478080,   117.3131200,    51.4986990,   &
     &       29.5194860,    20.1469030,    15.2121030,    12.1925180,   &
     &       10.1406100,     8.6417550,     7.4910100,     6.5762820,   &
     &        5.2119620,     4.2469660,     3.5345800,     2.9924220,   &
     &        2.5699090,     1.8461480,     1.3998220,     0.8963550,   &
     &        0.6292150,     0.3225380,     0.1960510              /
! REF PrH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 59) /      0.56091390202549 /
      data refh    (2, 59) /     -0.18697130067516 /
      data gffq    (2, 59) /      0.78255214121928 /
      data gffh    (2, 59) /     -0.26085071373976 /
      data dftq    (2, 59) /      0.87928200000000 /
      data dfth    (2, 59) /     -0.29309766666667 /
      data pbcq    (2, 59) /      0.56091390202549 /
      data pbch    (2, 59) /     -0.18697130067516 /
      data clsq    (2, 59) /      0.78255214121928 /
      data clsh    (2, 59) /     -0.26085071373976 /
      data hcount  (2, 59) /      3.00000000000000 /
      data ascale  (2, 59) /      1.00000000000000 /
      data refcovcn(2, 59) /      2.44976242184767 /
      data refcn   (2, 59) /      2.94245250980475 /
      data refsys (2, 59) /    1 /
      data alphaiw(:,2, 59) /                                            &
     &       61.2373490,    58.9335430,    53.9743400,    41.9343430,   &
     &       32.1281250,    25.1481370,    20.2000000,    16.6031610,   &
     &       13.9109010,    11.8406070,    10.2112030,     8.9035100,   &
     &        6.9541880,     5.5908190,     4.5991840,     3.8553720,   &
     &        3.2832050,     2.3202580,     1.7385060,     1.0952390,   &
     &        0.7607110,     0.3842190,     0.2318250              /
      data refn(59) / 2 /
! REF Nd  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 60) /     -0.00000000019384 /
      data refh    (1, 60) /      0.00000000000000 /
      data gffq    (1, 60) /      0.00000000000000 /
      data gffh    (1, 60) /      0.00000000000000 /
      data dftq    (1, 60) /     -0.00000000019384 /
      data dfth    (1, 60) /      0.00000000000000 /
      data pbcq    (1, 60) /     -0.00000000019384 /
      data pbch    (1, 60) /      0.00000000000000 /
      data clsq    (1, 60) /      0.00000000000000 /
      data clsh    (1, 60) /      0.00000000000000 /
      data hcount  (1, 60) /      0.00000000000000 /
      data ascale  (1, 60) /      1.00000000000000 /
      data refcovcn(1, 60) /      0.00000000000000 /
      data refcn   (1, 60) /      0.00000000000000 /
      data refsys (1, 60) /    1 /
      data alphaiw(:,1, 60) /                                            &
     &      224.5762180,   179.2684400,   114.5509860,    50.7711900,   &
     &       29.0959830,    19.8086410,    14.9251210,    11.9483050,   &
     &        9.9338740,     8.4673600,     7.3439400,     6.4519280,   &
     &        5.1215350,     4.1790220,     3.4814770,     2.9491840,   &
     &        2.5333290,     1.8187150,     1.3768350,     0.8783290,   &
     &        0.6146620,     0.3138300,     0.1905480              /
! REF NdH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 60) /      0.57175663320068 /
      data refh    (2, 60) /     -0.19058554440023 /
      data gffq    (2, 60) /      0.78608430866652 /
      data gffh    (2, 60) /     -0.26202810288884 /
      data dftq    (2, 60) /      0.87300100000000 /
      data dfth    (2, 60) /     -0.29100533333333 /
      data pbcq    (2, 60) /      0.57175663320068 /
      data pbch    (2, 60) /     -0.19058554440023 /
      data clsq    (2, 60) /      0.78608430866652 /
      data clsh    (2, 60) /     -0.26202810288884 /
      data hcount  (2, 60) /      3.00000000000000 /
      data ascale  (2, 60) /      1.00000000000000 /
      data refcovcn(2, 60) /      2.45621204848065 /
      data refcn   (2, 60) /      2.94550013327159 /
      data refsys (2, 60) /    1 /
      data alphaiw(:,2, 60) /                                            &
     &       59.8908920,    57.8663720,    53.0214580,    41.2308960,   &
     &       31.6026170,    24.7396280,    19.8738380,    16.3389450,   &
     &       13.6950980,    11.6632880,    10.0646540,     8.7815920,   &
     &        6.8677690,     5.5271730,     4.5502380,     3.8160260,   &
     &        3.2502340,     2.2958240,     1.7180490,     1.0790660,   &
     &        0.7475530,     0.3762800,     0.2268030              /
      data refn(60) / 2 /
! REF Pm  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 61) /     -0.00000000047809 /
      data refh    (1, 61) /      0.00000000000000 /
      data gffq    (1, 61) /      0.00000000000000 /
      data gffh    (1, 61) /      0.00000000000000 /
      data dftq    (1, 61) /     -0.00000000047809 /
      data dfth    (1, 61) /      0.00000000000000 /
      data pbcq    (1, 61) /     -0.00000000047809 /
      data pbch    (1, 61) /      0.00000000000000 /
      data clsq    (1, 61) /      0.00000000000000 /
      data clsh    (1, 61) /      0.00000000000000 /
      data hcount  (1, 61) /      0.00000000000000 /
      data ascale  (1, 61) /      1.00000000000000 /
      data refcovcn(1, 61) /      0.00000000000000 /
      data refcn   (1, 61) /      0.00000000000000 /
      data refsys (1, 61) /    1 /
      data alphaiw(:,1, 61) /                                            &
     &      216.5540280,   174.0685600,   112.0657200,    49.9521540,   &
     &       28.5964740,    19.4194800,    14.6027420,    11.6781260,   &
     &        9.7072940,     8.2773840,     7.1844350,     6.3175570,   &
     &        5.0245550,     4.1068450,     3.4257530,     2.9044660,   &
     &        2.4960780,     1.7917290,     1.3546830,     0.8610840,   &
     &        0.6005800,     0.3050960,     0.1848870              /
! REF PmH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 61) /      0.57848494579342 /
      data refh    (2, 61) /     -0.19282831526447 /
      data gffq    (2, 61) /      0.79124653412356 /
      data gffh    (2, 61) /     -0.26374884470785 /
      data dftq    (2, 61) /      0.88544700000000 /
      data dfth    (2, 61) /     -0.29514800000000 /
      data pbcq    (2, 61) /      0.57848494579342 /
      data pbch    (2, 61) /     -0.19282831526447 /
      data clsq    (2, 61) /      0.79124653412356 /
      data clsh    (2, 61) /     -0.26374884470785 /
      data hcount  (2, 61) /      3.00000000000000 /
      data ascale  (2, 61) /      1.00000000000000 /
      data refcovcn(2, 61) /      2.45653273553474 /
      data refcn   (2, 61) /      2.94127110730758 /
      data refsys (2, 61) /    1 /
      data alphaiw(:,2, 61) /                                            &
     &       57.9857080,    56.0520210,    51.4036550,    40.1715870,   &
     &       30.9043600,    24.2360810,    19.4864830,    16.0303390,   &
     &       13.4446280,    11.4577250,     9.8945360,     8.6397290,   &
     &        6.7667310,     5.4526280,     4.4930820,     3.7704490,   &
     &        3.2125050,     2.2688980,     1.6962120,     1.0622980,   &
     &        0.7339400,     0.3678790,     0.2213700              /
      data refn(61) / 2 /
! REF Sm  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 62) /     -0.00000000067069 /
      data refh    (1, 62) /      0.00000000000000 /
      data gffq    (1, 62) /      0.00000000000000 /
      data gffh    (1, 62) /      0.00000000000000 /
      data dftq    (1, 62) /     -0.00000000067069 /
      data dfth    (1, 62) /      0.00000000000000 /
      data pbcq    (1, 62) /     -0.00000000067069 /
      data pbch    (1, 62) /      0.00000000000000 /
      data clsq    (1, 62) /      0.00000000000000 /
      data clsh    (1, 62) /      0.00000000000000 /
      data hcount  (1, 62) /      0.00000000000000 /
      data ascale  (1, 62) /      1.00000000000000 /
      data refcovcn(1, 62) /      0.00000000000000 /
      data refcn   (1, 62) /      0.00000000000000 /
      data refsys (1, 62) /    1 /
      data alphaiw(:,1, 62) /                                            &
     &      209.4821630,   169.3264270,   109.7496270,    49.1677750,   &
     &       28.1221600,    19.0508730,    14.2954700,    11.4178440,   &
     &        9.4862320,     8.0895200,     7.0245330,     6.1810260,   &
     &        4.9234940,     4.0299890,     3.3654240,     2.8555240,   &
     &        2.4550980,     1.7622060,     1.3308620,     0.8430750,   &
     &        0.5860700,     0.2961160,     0.1790130              /
! REF SmH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 62) /      0.58363743728673 /
      data refh    (2, 62) /     -0.19454581242891 /
      data gffq    (2, 62) /      0.78972506109909 /
      data gffh    (2, 62) /     -0.26324168703303 /
      data dftq    (2, 62) /      0.87510600000000 /
      data dfth    (2, 62) /     -0.29170100000000 /
      data pbcq    (2, 62) /      0.58363743728673 /
      data pbch    (2, 62) /     -0.19454581242891 /
      data clsq    (2, 62) /      0.78972506109909 /
      data clsh    (2, 62) /     -0.26324168703303 /
      data hcount  (2, 62) /      3.00000000000000 /
      data ascale  (2, 62) /      1.00000000000000 /
      data refcovcn(2, 62) /      2.45472309204146 /
      data refcn   (2, 62) /      2.92998749109076 /
      data refsys (2, 62) /    1 /
      data alphaiw(:,2, 62) /                                            &
     &       60.4975550,    56.8914260,    51.7310830,    40.1100700,   &
     &       30.7211290,    24.0196790,    19.2720050,    15.8320160,   &
     &       13.2674100,    11.3021990,     9.7592770,     8.5225050,   &
     &        6.6783810,     5.3848030,     4.4395640,     3.7268880,   &
     &        3.1759310,     2.2423610,     1.6746190,     1.0457120,   &
     &        0.7204260,     0.3593990,     0.2157950              /
      data refn(62) / 2 /
! REF Eu  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 63) /     -0.00000000029832 /
      data refh    (1, 63) /      0.00000000000000 /
      data gffq    (1, 63) /      0.00000000000000 /
      data gffh    (1, 63) /      0.00000000000000 /
      data dftq    (1, 63) /     -0.00000000029832 /
      data dfth    (1, 63) /      0.00000000000000 /
      data pbcq    (1, 63) /     -0.00000000029832 /
      data pbch    (1, 63) /      0.00000000000000 /
      data clsq    (1, 63) /      0.00000000000000 /
      data clsh    (1, 63) /      0.00000000000000 /
      data hcount  (1, 63) /      0.00000000000000 /
      data ascale  (1, 63) /      1.00000000000000 /
      data refcovcn(1, 63) /      0.00000000000000 /
      data refcn   (1, 63) /      0.00000000000000 /
      data refsys (1, 63) /    1 /
      data alphaiw(:,1, 63) /                                            &
     &      203.2111900,   165.0774090,   107.6941350,    48.4835280,   &
     &       27.7173710,    18.7379040,    14.0329820,    11.1932480,   &
     &        9.2933470,     7.9237680,     6.8819260,     6.0580060,   &
     &        4.8307140,     3.9582910,     3.3084100,     2.8088210,   &
     &        2.4157350,     1.7336990,     1.3079430,     0.8259450,   &
     &        0.5723790,     0.2877150,     0.1735300              /
! REF EuH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 63) /      0.14255010803045 /
      data refh    (2, 63) /     -0.07127505401524 /
      data gffq    (2, 63) /      0.65326281414848 /
      data gffh    (2, 63) /     -0.32663140707424 /
      data dftq    (2, 63) /      0.65370700000000 /
      data dfth    (2, 63) /     -0.32684400000000 /
      data pbcq    (2, 63) /      0.14255010803045 /
      data pbch    (2, 63) /     -0.07127505401524 /
      data clsq    (2, 63) /      0.65326281414848 /
      data clsh    (2, 63) /     -0.32663140707424 /
      data hcount  (2, 63) /      2.00000000000000 /
      data ascale  (2, 63) /      1.00000000000000 /
      data refcovcn(2, 63) /      1.53272635693059 /
      data refcn   (2, 63) /      1.82859934010382 /
      data refsys (2, 63) /    1 /
      data alphaiw(:,2, 63) /                                            &
     &       58.3846820,    55.5074830,    48.9596600,    35.5239180,   &
     &       26.2422590,    20.2406920,    16.2113610,    13.3691670,   &
     &       11.2734740,     9.6705860,     8.4080470,     7.3900200,   &
     &        5.8559040,     4.7635490,     3.9543760,     3.3370760,   &
     &        2.8551160,     2.0281870,     1.5187450,     0.9491330,   &
     &        0.6530540,     0.3246600,     0.1946040              /
      data refn(63) / 2 /
! REF Gd  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 64) /     -0.00000000020011 /
      data refh    (1, 64) /      0.00000000000000 /
      data gffq    (1, 64) /      0.00000000000000 /
      data gffh    (1, 64) /      0.00000000000000 /
      data dftq    (1, 64) /     -0.00000000020011 /
      data dfth    (1, 64) /      0.00000000000000 /
      data pbcq    (1, 64) /     -0.00000000020011 /
      data pbch    (1, 64) /      0.00000000000000 /
      data clsq    (1, 64) /      0.00000000000000 /
      data clsh    (1, 64) /      0.00000000000000 /
      data hcount  (1, 64) /      0.00000000000000 /
      data ascale  (1, 64) /      1.00000000000000 /
      data refcovcn(1, 64) /      0.00000000000000 /
      data refcn   (1, 64) /      0.00000000000000 /
      data refsys (1, 64) /    1 /
      data alphaiw(:,1, 64) /                                            &
     &      141.8420640,   116.8571040,    82.4531150,    42.8638860,   &
     &       26.4230410,    18.5963810,    14.2465310,    11.5139220,   &
     &        9.6332520,     8.2500980,     7.1830900,     6.3311290,   &
     &        5.0514610,     4.1367300,     3.4541820,     2.9295050,   &
     &        2.5169890,     1.8023770,     1.3572570,     0.8545860,   &
     &        0.5909780,     0.2962180,     0.1784510              /
! REF GdH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 64) /      0.58503142159949 /
      data refh    (2, 64) /     -0.19501047386650 /
      data gffq    (2, 64) /      0.78994446367069 /
      data gffh    (2, 64) /     -0.26331482122356 /
      data dftq    (2, 64) /      0.81693300000000 /
      data dfth    (2, 64) /     -0.27231133333333 /
      data pbcq    (2, 64) /      0.58503142159949 /
      data pbch    (2, 64) /     -0.19501047386650 /
      data clsq    (2, 64) /      0.78994446367069 /
      data clsh    (2, 64) /     -0.26331482122356 /
      data hcount  (2, 64) /      3.00000000000000 /
      data ascale  (2, 64) /      1.00000000000000 /
      data refcovcn(2, 64) /      2.41754019361739 /
      data refcn   (2, 64) /      2.87315743546354 /
      data refsys (2, 64) /    1 /
      data alphaiw(:,2, 64) /                                            &
     &       59.9521870,    57.6299620,    52.3452910,    40.4588930,   &
     &       30.8901980,    24.0499010,    19.2156040,    15.7302290,   &
     &       13.1464310,    11.1770130,     9.6378050,     8.4085080,   &
     &        6.5823240,     5.3050770,     4.3727770,     3.6698530,   &
     &        3.1261280,     2.2035920,     1.6416690,     1.0191840,   &
     &        0.6982840,     0.3451090,     0.2062760              /
      data refn(64) / 2 /
! REF Tb  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 65) /     -0.00000000017383 /
      data refh    (1, 65) /      0.00000000000000 /
      data gffq    (1, 65) /      0.00000000000000 /
      data gffh    (1, 65) /      0.00000000000000 /
      data dftq    (1, 65) /     -0.00000000017383 /
      data dfth    (1, 65) /      0.00000000000000 /
      data pbcq    (1, 65) /     -0.00000000017383 /
      data pbch    (1, 65) /      0.00000000000000 /
      data clsq    (1, 65) /      0.00000000000000 /
      data clsh    (1, 65) /      0.00000000000000 /
      data hcount  (1, 65) /      0.00000000000000 /
      data ascale  (1, 65) /      1.00000000000000 /
      data refcovcn(1, 65) /      0.00000000000000 /
      data refcn   (1, 65) /      0.00000000000000 /
      data refsys (1, 65) /    1 /
      data alphaiw(:,1, 65) /                                            &
     &      229.3015960,   148.7572060,    83.8992590,    37.7525280,   &
     &       23.0411680,    16.4030610,    12.7361960,    10.4183080,   &
     &        8.8072510,     7.6095540,     6.6757310,     5.9225500,   &
     &        4.7760310,     3.9431820,     3.3133000,     2.8236490,   &
     &        2.4350780,     1.7540070,     1.3245690,     0.8351270,   &
     &        0.5770300,     0.2882710,     0.1732830              /
! REF TbH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 65) /      0.60523146779616 /
      data refh    (2, 65) /     -0.20174382259872 /
      data gffq    (2, 65) /      0.79462439284960 /
      data gffh    (2, 65) /     -0.26487479761653 /
      data dftq    (2, 65) /      0.89352700000000 /
      data dfth    (2, 65) /     -0.29784333333333 /
      data pbcq    (2, 65) /      0.60523146779616 /
      data pbch    (2, 65) /     -0.20174382259872 /
      data clsq    (2, 65) /      0.79462439284960 /
      data clsh    (2, 65) /     -0.26487479761653 /
      data hcount  (2, 65) /      3.00000000000000 /
      data ascale  (2, 65) /      1.00000000000000 /
      data refcovcn(2, 65) /      2.45190848719608 /
      data refcn   (2, 65) /      2.90861742800663 /
      data refsys (2, 65) /    1 /
      data alphaiw(:,2, 65) /                                            &
     &       55.7777620,    53.9540020,    49.4627260,    38.5259830,   &
     &       29.5462910,    23.1049190,    18.5294200,    15.2134150,   &
     &       12.7449150,    10.8576310,     9.3793010,     8.1965330,   &
     &        6.4356150,     5.2004630,     4.2962800,     3.6126080,   &
     &        3.0823350,     2.1790430,     1.6261760,     1.0110080,   &
     &        0.6927930,     0.3420770,     0.2042870              /
      data refn(65) / 2 /
! REF Dy  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 66) /     -0.00000000016680 /
      data refh    (1, 66) /      0.00000000000000 /
      data gffq    (1, 66) /      0.00000000000000 /
      data gffh    (1, 66) /      0.00000000000000 /
      data dftq    (1, 66) /     -0.00000000016680 /
      data dfth    (1, 66) /      0.00000000000000 /
      data pbcq    (1, 66) /     -0.00000000016680 /
      data pbch    (1, 66) /      0.00000000000000 /
      data clsq    (1, 66) /      0.00000000000000 /
      data clsh    (1, 66) /      0.00000000000000 /
      data hcount  (1, 66) /      0.00000000000000 /
      data ascale  (1, 66) /      1.00000000000000 /
      data refcovcn(1, 66) /      0.00000000000000 /
      data refcn   (1, 66) /      0.00000000000000 /
      data refsys (1, 66) /    1 /
      data alphaiw(:,1, 66) /                                            &
     &      232.4656730,   135.1836000,    80.1286950,    37.7486970,   &
     &       23.2434510,    16.5330840,    12.7969630,    10.4341740,   &
     &        8.7966470,     7.5842480,     6.6428660,     5.8863450,   &
     &        4.7393580,     3.9091410,     3.2824410,     2.7957150,   &
     &        2.4096230,     1.7330220,     1.3064720,     0.8207680,   &
     &        0.5653110,     0.2809900,     0.1685370              /
! REF DyH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 66) /      0.61019655089736 /
      data refh    (2, 66) /     -0.20339885029912 /
      data gffq    (2, 66) /      0.79518107342432 /
      data gffh    (2, 66) /     -0.26506035780811 /
      data dftq    (2, 66) /      0.87225900000000 /
      data dfth    (2, 66) /     -0.29075266666667 /
      data pbcq    (2, 66) /      0.61019655089736 /
      data pbch    (2, 66) /     -0.20339885029912 /
      data clsq    (2, 66) /      0.79518107342432 /
      data clsh    (2, 66) /     -0.26506035780811 /
      data hcount  (2, 66) /      3.00000000000000 /
      data ascale  (2, 66) /      1.00000000000000 /
      data refcovcn(2, 66) /      2.44535641509585 /
      data refcn   (2, 66) /      2.89653794321150 /
      data refsys (2, 66) /    1 /
      data alphaiw(:,2, 66) /                                            &
     &       60.4090430,    55.9872550,    50.3819660,    38.5219880,   &
     &       29.3573150,    22.8882210,    18.3247830,    15.0311820,   &
     &       12.5861420,    10.7203330,     9.2606660,     8.0937380,   &
     &        6.3571910,     5.1389330,     4.2464670,     3.5710020,   &
     &        3.0465710,     2.1519680,     1.6036830,     0.9935670,   &
     &        0.6786190,     0.3332680,     0.1985350              /
      data refn(66) / 2 /
! REF Ho  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 67) /     -0.00000000016492 /
      data refh    (1, 67) /      0.00000000000000 /
      data gffq    (1, 67) /      0.00000000000000 /
      data gffh    (1, 67) /      0.00000000000000 /
      data dftq    (1, 67) /     -0.00000000016492 /
      data dfth    (1, 67) /      0.00000000000000 /
      data pbcq    (1, 67) /     -0.00000000016492 /
      data pbch    (1, 67) /      0.00000000000000 /
      data clsq    (1, 67) /      0.00000000000000 /
      data clsh    (1, 67) /      0.00000000000000 /
      data hcount  (1, 67) /      0.00000000000000 /
      data ascale  (1, 67) /      1.00000000000000 /
      data refcovcn(1, 67) /      0.00000000000000 /
      data refcn   (1, 67) /      0.00000000000000 /
      data refsys (1, 67) /    1 /
      data alphaiw(:,1, 67) /                                            &
     &      174.3579710,   145.3475730,    98.3386140,    45.6653390,   &
     &       26.1535730,    17.5697070,    13.0686310,    10.3734350,   &
     &        8.5909150,     7.3206360,     6.3633450,     5.6111750,   &
     &        4.4954000,     3.7014620,     3.1066380,     2.6458480,   &
     &        2.2803750,     1.6387150,     1.2329370,     0.7701030,   &
     &        0.5271880,     0.2591200,     0.1545480              /
! REF HoH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 67) /      0.62162856784921 /
      data refh    (2, 67) /     -0.20720952261640 /
      data gffq    (2, 67) /      0.80930480242405 /
      data gffh    (2, 67) /     -0.26976826747468 /
      data dftq    (2, 67) /      0.90057300000000 /
      data dfth    (2, 67) /     -0.30018866666667 /
      data pbcq    (2, 67) /      0.62162856784921 /
      data pbch    (2, 67) /     -0.20720952261640 /
      data clsq    (2, 67) /      0.80930480242405 /
      data clsh    (2, 67) /     -0.26976826747468 /
      data hcount  (2, 67) /      3.00000000000000 /
      data ascale  (2, 67) /      1.00000000000000 /
      data refcovcn(2, 67) /      2.47312888776754 /
      data refcn   (2, 67) /      2.92423628373451 /
      data refsys (2, 67) /    1 /
      data alphaiw(:,2, 67) /                                            &
     &       52.4790850,    50.9455980,    47.0541390,    37.1641820,   &
     &       28.6862320,    22.4764090,    18.0300540,    14.8000680,   &
     &       12.3955370,    10.5586820,     9.1212810,     7.9722170,   &
     &        6.2625620,     5.0632080,     4.1843110,     3.5187310,   &
     &        3.0016100,     2.1184470,     1.5764470,     0.9730470,   &
     &        0.6620460,     0.3227820,     0.1915480              /
      data refn(67) / 2 /
! REF Er  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 68) /     -0.00000000016442 /
      data refh    (1, 68) /      0.00000000000000 /
      data gffq    (1, 68) /      0.00000000000000 /
      data gffh    (1, 68) /      0.00000000000000 /
      data dftq    (1, 68) /     -0.00000000016442 /
      data dfth    (1, 68) /      0.00000000000000 /
      data pbcq    (1, 68) /     -0.00000000016442 /
      data pbch    (1, 68) /      0.00000000000000 /
      data clsq    (1, 68) /      0.00000000000000 /
      data clsh    (1, 68) /      0.00000000000000 /
      data hcount  (1, 68) /      0.00000000000000 /
      data ascale  (1, 68) /      1.00000000000000 /
      data refcovcn(1, 68) /      0.00000000000000 /
      data refcn   (1, 68) /      0.00000000000000 /
      data refsys (1, 68) /    1 /
      data alphaiw(:,1, 68) /                                            &
     &      169.5086700,   141.8311300,    96.4854630,    44.9898390,   &
     &       25.7372660,    17.2457070,    12.7960440,    10.1383860,   &
     &        8.3867110,     7.1428030,     6.2082610,     5.4756830,   &
     &        4.3910800,     3.6198210,     3.0414510,     2.5926580,   &
     &        2.2360160,     1.6079710,     1.2093860,     0.7535860,   &
     &        0.5142640,     0.2510880,     0.1491740              /
! REF ErH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 68) /      0.62470266444604 /
      data refh    (2, 68) /     -0.20823422148201 /
      data gffq    (2, 68) /      0.81306730354597 /
      data gffh    (2, 68) /     -0.27102243451532 /
      data dftq    (2, 68) /      0.90879700000000 /
      data dfth    (2, 68) /     -0.30293100000000 /
      data pbcq    (2, 68) /      0.62470266444604 /
      data pbch    (2, 68) /     -0.20823422148201 /
      data clsq    (2, 68) /      0.81306730354597 /
      data clsh    (2, 68) /     -0.27102243451532 /
      data hcount  (2, 68) /      3.00000000000000 /
      data ascale  (2, 68) /      1.00000000000000 /
      data refcovcn(2, 68) /      2.48043640078965 /
      data refcn   (2, 68) /      2.92818783679168 /
      data refsys (2, 68) /    1 /
      data alphaiw(:,2, 68) /                                            &
     &       50.9243700,    49.4869020,    45.8178160,    36.3744420,   &
     &       28.1606380,    22.0904510,    17.7252050,    14.5487700,   &
     &       12.1834110,    10.3771780,     8.9646510,     7.8362150,   &
     &        6.1584380,     4.9818960,     4.1194840,     3.4659310,   &
     &        2.9576820,     2.0882320,     1.5534830,     0.9571210,   &
     &        0.6496440,     0.3150810,     0.1863840              /
      data refn(68) / 2 /
! REF Tm  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 69) /     -0.00000000016430 /
      data refh    (1, 69) /      0.00000000000000 /
      data gffq    (1, 69) /      0.00000000000000 /
      data gffh    (1, 69) /      0.00000000000000 /
      data dftq    (1, 69) /     -0.00000000016430 /
      data dfth    (1, 69) /      0.00000000000000 /
      data pbcq    (1, 69) /     -0.00000000016430 /
      data pbch    (1, 69) /      0.00000000000000 /
      data clsq    (1, 69) /      0.00000000000000 /
      data clsh    (1, 69) /      0.00000000000000 /
      data hcount  (1, 69) /      0.00000000000000 /
      data ascale  (1, 69) /      1.00000000000000 /
      data refcovcn(1, 69) /      0.00000000000000 /
      data refcn   (1, 69) /      0.00000000000000 /
      data refsys (1, 69) /    1 /
      data alphaiw(:,1, 69) /                                            &
     &      164.8744790,   138.5034170,    94.7797640,    44.4385580,   &
     &       25.4312120,    17.0158970,    12.6028120,     9.9697610,   &
     &        8.2378580,     7.0109450,     6.0912830,     5.3717500,   &
     &        4.3084370,     3.5531670,     2.9867270,     2.5468500,   &
     &        2.1969270,     1.5796200,     1.1870370,     0.7375970,   &
     &        0.5018220,     0.2436440,     0.1443670              /
! REF TmH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 69) /      0.63183032831607 /
      data refh    (2, 69) /     -0.21061010943869 /
      data gffq    (2, 69) /      0.81408370489997 /
      data gffh    (2, 69) /     -0.27136123496666 /
      data dftq    (2, 69) /      0.89507300000000 /
      data dfth    (2, 69) /     -0.29835433333333 /
      data pbcq    (2, 69) /      0.63183032831607 /
      data pbch    (2, 69) /     -0.21061010943869 /
      data clsq    (2, 69) /      0.81408370489997 /
      data clsh    (2, 69) /     -0.27136123496666 /
      data hcount  (2, 69) /      3.00000000000000 /
      data ascale  (2, 69) /      1.00000000000000 /
      data refcovcn(2, 69) /      2.48120800603580 /
      data refcn   (2, 69) /      2.92455515909581 /
      data refsys (2, 69) /    1 /
      data alphaiw(:,2, 69) /                                            &
     &       50.9258390,    49.3627740,    45.6624910,    36.1857370,   &
     &       27.9704110,    21.9122080,    17.5625150,    14.4018520,   &
     &       12.0514680,    10.2590760,     8.8591280,     7.7419770,   &
     &        6.0830330,     4.9209200,     4.0693970,     3.4240270,   &
     &        2.9219510,     2.0623180,     1.5329870,     0.9422880,   &
     &        0.6379740,     0.3079830,     0.1817680              /
      data refn(69) / 2 /
! REF Yb  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 70) /     -0.00000000016425 /
      data refh    (1, 70) /      0.00000000000000 /
      data gffq    (1, 70) /      0.00000000000000 /
      data gffh    (1, 70) /      0.00000000000000 /
      data dftq    (1, 70) /     -0.00000000016425 /
      data dfth    (1, 70) /      0.00000000000000 /
      data pbcq    (1, 70) /     -0.00000000016425 /
      data pbch    (1, 70) /      0.00000000000000 /
      data clsq    (1, 70) /      0.00000000000000 /
      data clsh    (1, 70) /      0.00000000000000 /
      data hcount  (1, 70) /      0.00000000000000 /
      data ascale  (1, 70) /      1.00000000000000 /
      data refcovcn(1, 70) /      0.00000000000000 /
      data refcn   (1, 70) /      0.00000000000000 /
      data refsys (1, 70) /    1 /
      data alphaiw(:,1, 70) /                                            &
     &      163.7379070,   137.4016000,    93.8094750,    43.7828040,   &
     &       24.9508110,    16.6301360,    12.2781120,     9.6905770,   &
     &        7.9955170,     6.7996180,     5.9064770,     5.2097330,   &
     &        4.1828480,     3.4544290,     2.9077830,     2.4825740,   &
     &        2.1436170,     1.5435770,     1.1603320,     0.7200560,   &
     &        0.4887560,     0.2360610,     0.1394570              /
! REF YbH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 70) /      0.60550144238902 /
      data refh    (2, 70) /     -0.20183381412967 /
      data gffq    (2, 70) /      0.78415843735390 /
      data gffh    (2, 70) /     -0.26138614578463 /
      data dftq    (2, 70) /      0.85697400000000 /
      data dfth    (2, 70) /     -0.28565700000000 /
      data pbcq    (2, 70) /      0.60550144238902 /
      data pbch    (2, 70) /     -0.20183381412967 /
      data clsq    (2, 70) /      0.78415843735390 /
      data clsh    (2, 70) /     -0.26138614578463 /
      data hcount  (2, 70) /      3.00000000000000 /
      data ascale  (2, 70) /      1.00000000000000 /
      data refcovcn(2, 70) /      2.41884356027485 /
      data refcn   (2, 70) /      2.84817486472051 /
      data refsys (2, 70) /    1 /
      data alphaiw(:,2, 70) /                                            &
     &       54.1811670,    52.3584220,    48.1909980,    37.7829980,   &
     &       28.8680310,    22.3694590,    17.7640250,    14.4601420,   &
     &       12.0316690,    10.1983910,     8.7787560,     7.6539450,   &
     &        5.9967880,     4.8445850,     4.0040030,     3.3683890,   &
     &        2.8743980,     2.0286710,     1.5073600,     0.9248310,   &
     &        0.6246590,     0.3000110,     0.1765320              /
      data refn(70) / 2 /
! REF Lu  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 71) /     -0.00000000016423 /
      data refh    (1, 71) /      0.00000000000000 /
      data gffq    (1, 71) /      0.00000000000000 /
      data gffh    (1, 71) /      0.00000000000000 /
      data dftq    (1, 71) /     -0.00000000016423 /
      data dfth    (1, 71) /      0.00000000000000 /
      data pbcq    (1, 71) /     -0.00000000016423 /
      data pbch    (1, 71) /      0.00000000000000 /
      data clsq    (1, 71) /      0.00000000000000 /
      data clsh    (1, 71) /      0.00000000000000 /
      data hcount  (1, 71) /      0.00000000000000 /
      data ascale  (1, 71) /      1.00000000000000 /
      data refcovcn(1, 71) /      0.00000000000000 /
      data refcn   (1, 71) /      0.00000000000000 /
      data refsys (1, 71) /    1 /
      data alphaiw(:,1, 71) /                                            &
     &      136.8530670,   104.2975620,    76.5562240,    40.2834860,   &
     &       24.1515190,    16.4764390,    12.3100420,     9.7790490,   &
     &        8.0987470,     6.9030530,     6.0050390,     5.3018750,   &
     &        4.2621270,     3.5227910,     2.9673480,     2.5350740,   &
     &        2.1903720,     1.5797660,     1.1891950,     0.7393030,   &
     &        0.5021560,     0.2423920,     0.1430370              /
! REF LuH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 71) /      0.64112998215579 /
      data refh    (2, 71) /     -0.21370999405193 /
      data gffq    (2, 71) /      0.82263187273050 /
      data gffh    (2, 71) /     -0.27421062424350 /
      data dftq    (2, 71) /      0.77300000000000 /
      data dfth    (2, 71) /     -0.25766600000000 /
      data pbcq    (2, 71) /      0.64112998215579 /
      data pbch    (2, 71) /     -0.21370999405193 /
      data clsq    (2, 71) /      0.82263187273050 /
      data clsh    (2, 71) /     -0.27421062424350 /
      data hcount  (2, 71) /      3.00000000000000 /
      data ascale  (2, 71) /      1.00000000000000 /
      data refcovcn(2, 71) /      2.48673110207243 /
      data refcn   (2, 71) /      2.92190497244653 /
      data refsys (2, 71) /    1 /
      data alphaiw(:,2, 71) /                                            &
     &       48.9452970,    47.6317230,    44.2461460,    35.3576300,   &
     &       27.4507560,    21.5311680,    17.2508500,    14.1326890,   &
     &       11.8136070,    10.0470280,     8.6694960,     7.5721550,   &
     &        5.9462740,     4.8097520,     3.9777670,     3.3472210,   &
     &        2.8563980,     2.0147310,     1.4952460,     0.9145890,   &
     &        0.6157550,     0.2938290,     0.1722380              /
      data refn(71) / 2 /
! REF Hf  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 72) /     -0.00000000032846 /
      data refh    (1, 72) /      0.00000000000000 /
      data gffq    (1, 72) /      0.00000000000000 /
      data gffh    (1, 72) /      0.00000000000000 /
      data dftq    (1, 72) /     -0.00000000032846 /
      data dfth    (1, 72) /      0.00000000000000 /
      data pbcq    (1, 72) /     -0.00000000032846 /
      data pbch    (1, 72) /      0.00000000000000 /
      data clsq    (1, 72) /      0.00000000000000 /
      data clsh    (1, 72) /      0.00000000000000 /
      data hcount  (1, 72) /      0.00000000000000 /
      data ascale  (1, 72) /      1.00000000000000 /
      data refcovcn(1, 72) /      0.00000000000000 /
      data refcn   (1, 72) /      0.00000000000000 /
      data refsys (1, 72) /    1 /
      data alphaiw(:,1, 72) /                                            &
     &      106.2816210,    95.4891650,    75.3034870,    44.1393100,   &
     &       28.1355730,    19.6843670,    14.7522820,    11.6120870,   &
     &        9.4717210,     7.9330520,     6.7792700,     5.8843260,   &
     &        4.5893730,     3.6999000,     3.0536720,     2.5653680,   &
     &        2.1856620,     1.5348190,     1.1334250,     0.6859220,   &
     &        0.4568140,     0.2123490,     0.1215650              /
! REF HfH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 72) /      0.11182987097353 /
      data refh    (2, 72) /     -0.05591493548678 /
      data gffq    (2, 72) /      0.44266476936835 /
      data gffh    (2, 72) /     -0.22133238468418 /
      data dftq    (2, 72) /      0.41268900000000 /
      data dfth    (2, 72) /     -0.20633400000000 /
      data pbcq    (2, 72) /      0.11182987097353 /
      data pbch    (2, 72) /     -0.05591493548678 /
      data clsq    (2, 72) /      0.44266476936835 /
      data clsh    (2, 72) /     -0.22133238468418 /
      data hcount  (2, 72) /      2.00000000000000 /
      data ascale  (2, 72) /      1.00000000000000 /
      data refcovcn(2, 72) /      1.64596625526870 /
      data refcn   (2, 72) /      1.92539163150370 /
      data refsys (2, 72) /    1 /
      data alphaiw(:,2, 72) /                                            &
     &       82.4536570,    70.5184470,    56.7403060,    38.8993780,   &
     &       28.3733700,    21.5865770,    16.9965970,    13.7660430,   &
     &       11.4103040,     9.6381650,     8.2684630,     7.1847890,   &
     &        5.5917520,     4.4881220,     3.6863220,     3.0827340,   &
     &        2.6157700,     1.8222580,     1.3383190,     0.8045950,   &
     &        0.5339520,     0.2472490,     0.1413400              /
! REF HfH4  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 72) /      1.03176947354421 /
      data refh    (3, 72) /     -0.25794236838605 /
      data gffq    (3, 72) /      0.68407375970491 /
      data gffh    (3, 72) /     -0.17101843992623 /
      data dftq    (3, 72) /      0.48654600000000 /
      data dfth    (3, 72) /     -0.12162925000000 /
      data pbcq    (3, 72) /      1.03176947354421 /
      data pbch    (3, 72) /     -0.25794236838605 /
      data clsq    (3, 72) /      0.68407375970491 /
      data clsh    (3, 72) /     -0.17101843992623 /
      data hcount  (3, 72) /      4.00000000000000 /
      data ascale  (3, 72) /      1.00000000000000 /
      data refcovcn(3, 72) /      3.32095096313483 /
      data refcn   (3, 72) /      3.88399563447207 /
      data refsys (3, 72) /    1 /
      data alphaiw(:,3, 72) /                                            &
     &       50.2657100,    49.2005530,    46.3604080,    38.3345580,   &
     &       30.5672240,    24.3724470,    19.6879820,    16.1687550,   &
     &       13.4975460,    11.4368740,     9.8188790,     8.5264490,   &
     &        6.6139230,     5.2863370,     4.3241350,     3.6027470,   &
     &        3.0471630,     2.1096360,     1.5428050,     0.9227930,   &
     &        0.6106910,     0.2819190,     0.1609740              /
      data refn(72) / 3 /
! REF Ta  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 73) /     -0.00000000016531 /
      data refh    (1, 73) /      0.00000000000000 /
      data gffq    (1, 73) /      0.00000000000000 /
      data gffh    (1, 73) /      0.00000000000000 /
      data dftq    (1, 73) /     -0.00000000016531 /
      data dfth    (1, 73) /      0.00000000000000 /
      data pbcq    (1, 73) /     -0.00000000016531 /
      data pbch    (1, 73) /      0.00000000000000 /
      data clsq    (1, 73) /      0.00000000000000 /
      data clsh    (1, 73) /      0.00000000000000 /
      data hcount  (1, 73) /      0.00000000000000 /
      data ascale  (1, 73) /      1.00000000000000 /
      data refcovcn(1, 73) /      0.00000000000000 /
      data refcn   (1, 73) /      0.00000000000000 /
      data refsys (1, 73) /    1 /
      data alphaiw(:,1, 73) /                                            &
     &       88.9256120,    81.9318660,    67.3277280,    41.9543150,   &
     &       27.7130410,    19.8298060,    15.0833980,    11.9897820,   &
     &        9.8427490,     8.2781960,     7.0935190,     6.1684980,   &
     &        4.8227300,     3.8952850,     3.2207380,     2.7107210,   &
     &        2.3138110,     1.6320700,     1.2099340,     0.7365720,   &
     &        0.4925290,     0.2302270,     0.1321400              /
! REF TaH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 73) /      0.16442900962777 /
      data refh    (2, 73) /     -0.08221450484568 /
      data gffq    (2, 73) /      0.23523422154086 /
      data gffh    (2, 73) /     -0.11761711077043 /
      data dftq    (2, 73) /      0.35175200000000 /
      data dfth    (2, 73) /     -0.17587200000000 /
      data pbcq    (2, 73) /      0.16442900962777 /
      data pbch    (2, 73) /     -0.08221450484568 /
      data clsq    (2, 73) /      0.23523422154086 /
      data clsh    (2, 73) /     -0.11761711077043 /
      data hcount  (2, 73) /      2.00000000000000 /
      data ascale  (2, 73) /      1.00000000000000 /
      data refcovcn(2, 73) /      1.71671961147963 /
      data refcn   (2, 73) /      1.94592039225300 /
      data refsys (2, 73) /    1 /
      data alphaiw(:,2, 73) /                                            &
     &       69.3801270,    62.6525490,    52.3321990,    37.2824880,   &
     &       27.8804010,    21.6007000,    17.2276620,    14.0778720,   &
     &       11.7401200,     9.9582810,     8.5679630,     7.4606290,   &
     &        5.8231300,     4.6837700,     3.8543220,     3.2291230,   &
     &        2.7448770,     1.9201830,     1.4153120,     0.8555430,   &
     &        0.5698730,     0.2652310,     0.1519760              /
! REF TaH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 73) /      0.50275891663832 /
      data refh    (3, 73) /     -0.16758630554610 /
      data gffq    (3, 73) /      0.30980440015125 /
      data gffh    (3, 73) /     -0.10326813338375 /
      data dftq    (3, 73) /      0.50043500000000 /
      data dfth    (3, 73) /     -0.16681166666667 /
      data pbcq    (3, 73) /      0.50275891663832 /
      data pbch    (3, 73) /     -0.16758630554610 /
      data clsq    (3, 73) /      0.30980440015125 /
      data clsh    (3, 73) /     -0.10326813338375 /
      data hcount  (3, 73) /      3.00000000000000 /
      data ascale  (3, 73) /      1.00000000000000 /
      data refcovcn(3, 73) /      2.55699041057149 /
      data refcn   (3, 73) /      2.89880253611560 /
      data refsys (3, 73) /    1 /
      data alphaiw(:,3, 73) /                                            &
     &       53.1343510,    50.1385310,    45.3135370,    36.1734470,   &
     &       28.5997780,    22.7928480,    18.4525250,    15.2001580,   &
     &       12.7291810,    10.8187030,     9.3147510,     8.1103590,   &
     &        6.3220940,     5.0755740,     4.1686360,     3.4861320,   &
     &        2.9585540,     2.0630420,     1.5171890,     0.9145820,   &
     &        0.6082630,     0.2826130,     0.1618310              /
      data refn(73) / 3 /
! REF W - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 74) /     -0.00000000000215 /
      data refh    (1, 74) /      0.00000000000000 /
      data gffq    (1, 74) /      0.00000000000000 /
      data gffh    (1, 74) /      0.00000000000000 /
      data dftq    (1, 74) /     -0.00000000000215 /
      data dfth    (1, 74) /      0.00000000000000 /
      data pbcq    (1, 74) /     -0.00000000000215 /
      data pbch    (1, 74) /      0.00000000000000 /
      data clsq    (1, 74) /      0.00000000000000 /
      data clsh    (1, 74) /      0.00000000000000 /
      data hcount  (1, 74) /      0.00000000000000 /
      data ascale  (1, 74) /      1.00000000000000 /
      data refcovcn(1, 74) /      0.00000000000000 /
      data refcn   (1, 74) /      0.00000000000000 /
      data refsys (1, 74) /    1 /
      data alphaiw(:,1, 74) /                                            &
     &       72.6835210,    66.5725390,    54.5218660,    35.1042250,   &
     &       24.3743050,    18.1885020,    14.2758210,    11.6114380,   &
     &        9.6940500,     8.2552810,     7.1400870,     6.2531290,   &
     &        4.9373670,     4.0140520,     3.3348740,     2.8174560,   &
     &        2.4125540,     1.7123560,     1.2753760,     0.7814210,   &
     &        0.5246740,     0.2466040,     0.1418950              /
! REF WH2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 74) /     -0.33545448944282 /
      data refh    (2, 74) /      0.16772724472662 /
      data gffq    (2, 74) /      0.31319918056428 /
      data gffh    (2, 74) /     -0.15659959028214 /
      data dftq    (2, 74) /      0.27083900000000 /
      data dfth    (2, 74) /     -0.13541400000000 /
      data pbcq    (2, 74) /     -0.33545448944282 /
      data pbch    (2, 74) /      0.16772724472662 /
      data clsq    (2, 74) /      0.31319918056428 /
      data clsh    (2, 74) /     -0.15659959028214 /
      data hcount  (2, 74) /      2.00000000000000 /
      data ascale  (2, 74) /      1.00000000000000 /
      data refcovcn(2, 74) /      1.84852525804219 /
      data refcn   (2, 74) /      1.92915611172061 /
      data refsys (2, 74) /    1 /
      data alphaiw(:,2, 74) /                                            &
     &       57.9535230,    54.3254100,    47.3716060,    35.2077750,   &
     &       26.9133880,    21.1900880,    17.1120840,    14.1184440,   &
     &       11.8610010,    10.1176970,     8.7429580,     7.6387710,   &
     &        5.9912880,     4.8355390,     3.9899060,     3.3503580,   &
     &        2.8537360,     2.0050600,     1.4831160,     0.9012110,   &
     &        0.6023820,     0.2816950,     0.1617650              /
! REF WH12  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 74) /     -0.88683226156157 /
      data refh    (3, 74) /      0.07390268846346 /
      data gffq    (3, 74) /      0.23020705290823 /
      data gffh    (3, 74) /     -0.01918392107569 /
      data dftq    (3, 74) /      0.02443500000000 /
      data dfth    (3, 74) /     -0.00206916666667 /
      data pbcq    (3, 74) /     -0.88683226156157 /
      data pbch    (3, 74) /      0.07390268846346 /
      data clsq    (3, 74) /      0.23020705290823 /
      data clsh    (3, 74) /     -0.01918392107569 /
      data hcount  (3, 74) /     12.00000000000000 /
      data ascale  (3, 74) /      1.00000000000000 /
      data refcovcn(3, 74) /     10.44998431099169 /
      data refcn   (3, 74) /     10.91528020745492 /
      data refsys (3, 74) /    1 /
      data alphaiw(:,3, 74) /                                            &
     &       69.9811980,    68.7138070,    65.3381200,    55.7596720,   &
     &       46.2137800,    38.1741940,    31.7064340,    26.5625450,   &
     &       22.4690330,    19.1923040,    16.5475190,    14.3927290,   &
     &       11.1480040,     8.8712130,     7.2191730,     5.9850930,   &
     &        5.0399870,     3.4609450,     2.5183910,     1.4990770,   &
     &        0.9903650,     0.4569140,     0.2609890              /
      data refn(74) / 3 /
! REF Re  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 75) /      0.00000000000001 /
      data refh    (1, 75) /      0.00000000000000 /
      data gffq    (1, 75) /      0.00000000000000 /
      data gffh    (1, 75) /      0.00000000000000 /
      data dftq    (1, 75) /      0.00000000000001 /
      data dfth    (1, 75) /      0.00000000000000 /
      data pbcq    (1, 75) /      0.00000000000001 /
      data pbch    (1, 75) /      0.00000000000000 /
      data clsq    (1, 75) /      0.00000000000000 /
      data clsh    (1, 75) /      0.00000000000000 /
      data hcount  (1, 75) /      0.00000000000000 /
      data ascale  (1, 75) /      1.00000000000000 /
      data refcovcn(1, 75) /      0.00000000000000 /
      data refcn   (1, 75) /      0.00000000000000 /
      data refsys (1, 75) /    1 /
      data alphaiw(:,1, 75) /                                            &
     &       70.9067150,    65.7037140,    55.2189840,    36.8309030,   &
     &       25.6365300,    19.0080410,    14.8342930,    12.0225100,   &
     &       10.0181560,     8.5243540,     7.3716210,     6.4572650,   &
     &        5.1034730,     4.1544350,     3.4564620,     2.9246120,   &
     &        2.5081950,     1.7869670,     1.3354090,     0.8224190,   &
     &        0.5541320,     0.2617050,     0.1509270              /
! REF ReH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 75) /      0.24763706299082 /
      data refh    (2, 75) /     -0.12381853149337 /
      data gffq    (2, 75) /      0.10191716059118 /
      data gffh    (2, 75) /     -0.05095858029559 /
      data dftq    (2, 75) /      0.38630100000000 /
      data dfth    (2, 75) /     -0.19315100000000 /
      data pbcq    (2, 75) /      0.24763706299082 /
      data pbch    (2, 75) /     -0.12381853149337 /
      data clsq    (2, 75) /      0.10191716059118 /
      data clsh    (2, 75) /     -0.05095858029559 /
      data hcount  (2, 75) /      2.00000000000000 /
      data ascale  (2, 75) /      1.00000000000000 /
      data refcovcn(2, 75) /      1.69673556648333 /
      data refcn   (2, 75) /      1.81037867017969 /
      data refsys (2, 75) /    1 /
      data alphaiw(:,2, 75) /                                            &
     &       63.2047780,    58.0228720,    48.8925050,    34.6221050,   &
     &       25.8457800,    20.1387260,    16.1920480,    13.3396770,   &
     &       11.2072140,     9.5682700,     8.2790220,     7.2445840,   &
     &        5.7011200,     4.6167910,     3.8216470,     3.2187300,   &
     &        2.7492670,     1.9432630,     1.4442130,     0.8833880,   &
     &        0.5929380,     0.2787900,     0.1604910              /
! REF ReH11 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 75) /     -1.18136092549264 /
      data refh    (3, 75) /      0.10739644777206 /
      data gffq    (3, 75) /     -0.03451303623343 /
      data gffh    (3, 75) /      0.00313754874849 /
      data dftq    (3, 75) /     -0.03064000000000 /
      data dfth    (3, 75) /      0.00271545454545 /
      data pbcq    (3, 75) /     -1.18136092549264 /
      data pbch    (3, 75) /      0.10739644777206 /
      data clsq    (3, 75) /     -0.03451303623343 /
      data clsh    (3, 75) /      0.00313754874849 /
      data hcount  (3, 75) /     11.00000000000000 /
      data ascale  (3, 75) /      1.00000000000000 /
      data refcovcn(3, 75) /      9.19053013143453 /
      data refcn   (3, 75) /      9.80535616498394 /
      data refsys (3, 75) /    1 /
      data alphaiw(:,3, 75) /                                            &
     &       61.9391170,    61.0033150,    58.4522600,    50.8001250,   &
     &       42.6897350,    35.5953060,    29.7653350,    25.0690300,   &
     &       21.2990290,    18.2612110,    15.7959520,    13.7781660,   &
     &       10.7227960,     8.5655510,     6.9926320,     5.8130460,   &
     &        4.9067170,     3.3857530,     2.4728560,     1.4797000,   &
     &        0.9808630,     0.4545450,     0.2601570              /
      data refn(75) / 3 /
! REF Os  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 76) /      0.00000000032846 /
      data refh    (1, 76) /      0.00000000000000 /
      data gffq    (1, 76) /      0.00000000000000 /
      data gffh    (1, 76) /      0.00000000000000 /
      data dftq    (1, 76) /      0.00000000032846 /
      data dfth    (1, 76) /      0.00000000000000 /
      data pbcq    (1, 76) /      0.00000000032846 /
      data pbch    (1, 76) /      0.00000000000000 /
      data clsq    (1, 76) /      0.00000000000000 /
      data clsh    (1, 76) /      0.00000000000000 /
      data hcount  (1, 76) /      0.00000000000000 /
      data ascale  (1, 76) /      1.00000000000000 /
      data refcovcn(1, 76) /      0.00000000000000 /
      data refcn   (1, 76) /      0.00000000000000 /
      data refsys (1, 76) /    1 /
      data alphaiw(:,1, 76) /                                            &
     &       59.6083520,    56.2806020,    48.8648650,    34.1600550,   &
     &       24.4374970,    18.4318460,    14.5524170,    11.8947470,   &
     &        9.9775490,     8.5355150,     7.4142660,     6.5190680,   &
     &        5.1830340,     4.2381040,     3.5384920,     3.0026950,   &
     &        2.5815390,     1.8484760,     1.3867840,     0.8588690,   &
     &        0.5808420,     0.2757360,     0.1594300              /
! REF OsH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 76) /      0.39810831794897 /
      data refh    (2, 76) /     -0.19905415897449 /
      data gffq    (2, 76) /      0.19864391765550 /
      data gffh    (2, 76) /     -0.09932195882775 /
      data dftq    (2, 76) /      0.23559700000000 /
      data dfth    (2, 76) /     -0.11780200000000 /
      data pbcq    (2, 76) /      0.39810831794897 /
      data pbch    (2, 76) /     -0.19905415897449 /
      data clsq    (2, 76) /      0.19864391765550 /
      data clsh    (2, 76) /     -0.09932195882775 /
      data hcount  (2, 76) /      2.00000000000000 /
      data ascale  (2, 76) /      1.00000000000000 /
      data refcovcn(2, 76) /      1.85014246784508 /
      data refcn   (2, 76) /      1.88576348924552 /
      data refsys (2, 76) /    1 /
      data alphaiw(:,2, 76) /                                            &
     &       46.6731420,    44.2599930,    40.9119690,    32.7985670,   &
     &       25.8416100,    20.6679230,    16.8773970,    14.0534960,   &
     &       11.9009790,    10.2230790,     8.8884890,     7.8079950,   &
     &        6.1792880,     5.0231940,     4.1694910,     3.5191180,   &
     &        3.0110530,     2.1356650,     1.5915890,     0.9776240,   &
     &        0.6581110,     0.3107410,     0.1792660              /
! REF OsH10 - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 76) /     -0.74972152609448 /
      data refh    (3, 76) /      0.07497215260945 /
      data gffq    (3, 76) /     -0.06474020857185 /
      data gffh    (3, 76) /      0.00647402085719 /
      data dftq    (3, 76) /     -0.02303200000000 /
      data dfth    (3, 76) /      0.00228800000000 /
      data pbcq    (3, 76) /     -0.74972152609448 /
      data pbch    (3, 76) /      0.07497215260945 /
      data clsq    (3, 76) /     -0.06474020857185 /
      data clsh    (3, 76) /      0.00647402085719 /
      data hcount  (3, 76) /     10.00000000000000 /
      data ascale  (3, 76) /      1.00000000000000 /
      data refcovcn(3, 76) /      8.97974115543403 /
      data refcn   (3, 76) /      9.15269257898964 /
      data refsys (3, 76) /    1 /
      data alphaiw(:,3, 76) /                                            &
     &       55.8892400,    55.1763930,    53.1894280,    46.9039320,   &
     &       39.8479720,    33.4618590,    28.1191240,    23.7725720,   &
     &       20.2616430,    17.4199010,    15.1054600,    13.2052620,   &
     &       10.3167870,     8.2680590,     6.7685540,     5.6403850,   &
     &        4.7711490,     3.3068100,     2.4236090,     1.4575360,   &
     &        0.9693850,     0.4512540,     0.2588140              /
      data refn(76) / 3 /
! REF Ir  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 77) /      0.00000000016428 /
      data refh    (1, 77) /      0.00000000000000 /
      data gffq    (1, 77) /      0.00000000000000 /
      data gffh    (1, 77) /      0.00000000000000 /
      data dftq    (1, 77) /      0.00000000016428 /
      data dfth    (1, 77) /      0.00000000000000 /
      data pbcq    (1, 77) /      0.00000000016428 /
      data pbch    (1, 77) /      0.00000000000000 /
      data clsq    (1, 77) /      0.00000000000000 /
      data clsh    (1, 77) /      0.00000000000000 /
      data hcount  (1, 77) /      0.00000000000000 /
      data ascale  (1, 77) /      1.00000000000000 /
      data refcovcn(1, 77) /      0.00000000000000 /
      data refcn   (1, 77) /      0.00000000000000 /
      data refsys (1, 77) /    1 /
      data alphaiw(:,1, 77) /                                            &
     &       51.5493740,    49.2234270,    43.7106450,    31.7225470,   &
     &       23.2089290,    17.7566590,    14.1614650,    11.6653050,   &
     &        9.8468960,     8.4684340,     7.3894730,     6.5229570,   &
     &        5.2199510,     4.2901010,     3.5965860,     3.0623010,   &
     &        2.6403160,     1.9013040,     1.4325800,     0.8926780,   &
     &        0.6061140,     0.2892620,     0.1676580              /
! REF IrH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 77) /      0.25293750607631 /
      data refh    (2, 77) /     -0.12646875303816 /
      data gffq    (2, 77) /     -0.01399684403519 /
      data gffh    (2, 77) /      0.00699842201760 /
      data dftq    (2, 77) /      0.16170200000000 /
      data dfth    (2, 77) /     -0.08085400000000 /
      data pbcq    (2, 77) /      0.25293750607631 /
      data pbch    (2, 77) /     -0.12646875303816 /
      data clsq    (2, 77) /     -0.01399684403519 /
      data clsh    (2, 77) /      0.00699842201760 /
      data hcount  (2, 77) /      2.00000000000000 /
      data ascale  (2, 77) /      1.00000000000000 /
      data refcovcn(2, 77) /      1.82924504495576 /
      data refcn   (2, 77) /      1.86479126833318 /
      data refsys (2, 77) /    1 /
      data alphaiw(:,2, 77) /                                            &
     &       42.7200080,    41.3931980,    38.3655160,    31.0080660,   &
     &       24.6653650,    19.9066380,    16.3877970,    13.7425380,   &
     &       11.7090270,    10.1115020,     8.8318110,     7.7890930,   &
     &        6.2044270,     5.0689240,     4.2241180,     3.5767130,   &
     &        3.0685910,     2.1879850,     1.6370730,     1.0112500,   &
     &        0.6832680,     0.3242250,     0.1874750              /
! REF IrH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 77) /      0.07099664558466 /
      data refh    (3, 77) /     -0.02366554852822 /
      data gffq    (3, 77) /     -0.04786532465344 /
      data gffh    (3, 77) /      0.01595510821781 /
      data dftq    (3, 77) /      0.08571000000000 /
      data dfth    (3, 77) /     -0.02856700000000 /
      data pbcq    (3, 77) /      0.07099664558466 /
      data pbch    (3, 77) /     -0.02366554852822 /
      data clsq    (3, 77) /     -0.04786532465344 /
      data clsh    (3, 77) /      0.01595510821781 /
      data hcount  (3, 77) /      3.00000000000000 /
      data ascale  (3, 77) /      1.00000000000000 /
      data refcovcn(3, 77) /      2.88910972828218 /
      data refcn   (3, 77) /      2.94241057251882 /
      data refsys (3, 77) /    1 /
      data alphaiw(:,3, 77) /                                            &
     &       40.1998410,    39.0125180,    36.3126410,    30.1829760,   &
     &       24.8286850,    20.5587890,    17.2259500,    14.6163560,   &
     &       12.5495230,    10.8901200,     9.5396530,     8.4265790,   &
     &        6.7165300,     5.4810030,     4.5587850,     3.8517520,   &
     &        3.2974500,     2.3400930,     1.7446250,     1.0727640,   &
     &        0.7229650,     0.3420560,     0.1975510              /
! REF IrH4  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 77) /      0.08089441442924 /
      data refh    (4, 77) /     -0.02022360360729 /
      data gffq    (4, 77) /     -0.07756443085155 /
      data gffh    (4, 77) /      0.01939110771289 /
      data dftq    (4, 77) /      0.08089441442924 /
      data dfth    (4, 77) /     -0.02022360360729 /
      data pbcq    (4, 77) /      0.08089441442924 /
      data pbch    (4, 77) /     -0.02022360360729 /
      data clsq    (4, 77) /     -0.07756443085155 /
      data clsh    (4, 77) /      0.01939110771289 /
      data hcount  (4, 77) /      4.00000000000000 /
      data ascale  (4, 77) /      1.00000000000000 /
      data refcovcn(4, 77) /      3.78801363268039 /
      data refcn   (4, 77) /      3.85906061728294 /
      data refsys (4, 77) /    1 /
      data alphaiw(:,4, 77) /                                            &
     &       43.2638615,    41.8727089,    38.9775692,    32.5354682,   &
     &       26.8687902,    22.3369089,    18.7845502,    15.9853930,   &
     &       13.7519014,    11.9455547,    10.4662014,     9.2409010,   &
     &        7.3500768,     5.9807691,     4.9594258,     4.1782069,   &
     &        3.5675888,     2.5185219,     1.8706839,     1.1451485,   &
     &        0.7699740,     0.3635000,     0.2098079              /
! REF IrH5  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (5, 77) /      0.07168988948134 /
      data refh    (5, 77) /     -0.01433797790456 /
      data gffq    (5, 77) /     -0.12042733196092 /
      data gffh    (5, 77) /      0.02408546639218 /
      data dftq    (5, 77) /      0.16674200000000 /
      data dfth    (5, 77) /     -0.03334960000000 /
      data pbcq    (5, 77) /      0.07168988948134 /
      data pbch    (5, 77) /     -0.01433797790456 /
      data clsq    (5, 77) /     -0.12042733196092 /
      data clsh    (5, 77) /      0.02408546639218 /
      data hcount  (5, 77) /      5.00000000000000 /
      data ascale  (5, 77) /      1.00000000000000 /
      data refcovcn(5, 77) /      4.66121308138933 /
      data refcn   (5, 77) /      4.74946213886664 /
      data refsys (5, 77) /    1 /
      data alphaiw(:,5, 77) /                                            &
     &       49.3567100,    48.1701200,    45.3609500,    38.0546700,   &
     &       31.0840500,    25.4572400,    21.1008600,    17.7296600,   &
     &       15.0901300,    12.9932400,    11.3032400,     9.9227200,   &
     &        7.8265900,     6.3334100,     5.2320700,     4.3961000,   &
     &        3.7462100,     2.6360300,     1.9540400,     1.1932200,   &
     &        0.8010500,     0.3773100,     0.2175100              /
      data refn(77) / 5 /
! REF Pt  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 78) /      0.00000000000057 /
      data refh    (1, 78) /      0.00000000000000 /
      data gffq    (1, 78) /      0.00000000000000 /
      data gffh    (1, 78) /      0.00000000000000 /
      data dftq    (1, 78) /      0.00000000000057 /
      data dfth    (1, 78) /      0.00000000000000 /
      data pbcq    (1, 78) /      0.00000000000057 /
      data pbch    (1, 78) /      0.00000000000000 /
      data clsq    (1, 78) /      0.00000000000000 /
      data clsh    (1, 78) /      0.00000000000000 /
      data hcount  (1, 78) /      0.00000000000000 /
      data ascale  (1, 78) /      1.00000000000000 /
      data refcovcn(1, 78) /      0.00000000000000 /
      data refcn   (1, 78) /      0.00000000000000 /
      data refsys (1, 78) /    1 /
      data alphaiw(:,1, 78) /                                            &
     &       41.1424820,    39.3180510,    35.0148090,    25.8710280,   &
     &       19.5216660,    15.4256100,    12.6507620,    10.6590770,   &
     &        9.1609870,     7.9929620,     7.0565850,     6.2892190,   &
     &        5.1074490,     4.2422610,     3.5845540,     3.0705210,   &
     &        2.6600560,     1.9319420,     1.4641410,     0.9193200,   &
     &        0.6271910,     0.3012380,     0.1751400              /
! REF PtH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 78) /      0.06077075987098 /
      data refh    (2, 78) /     -0.03038537978383 /
      data gffq    (2, 78) /      0.00248540621951 /
      data gffh    (2, 78) /     -0.00124270310976 /
      data dftq    (2, 78) /      0.11602300000000 /
      data dfth    (2, 78) /     -0.05800900000000 /
      data pbcq    (2, 78) /      0.06077075987098 /
      data pbch    (2, 78) /     -0.03038537978383 /
      data clsq    (2, 78) /      0.00248540621951 /
      data clsh    (2, 78) /     -0.00124270310976 /
      data hcount  (2, 78) /      2.00000000000000 /
      data ascale  (2, 78) /      1.00000000000000 /
      data refcovcn(2, 78) /      1.86072268763509 /
      data refcn   (2, 78) /      1.91881173481654 /
      data refsys (2, 78) /    1 /
      data alphaiw(:,2, 78) /                                            &
     &       40.5572290,    39.3599010,    36.5944450,    29.7359090,   &
     &       23.7699580,    19.2758940,    15.9444510,    13.4329020,   &
     &       11.4953860,     9.9672740,     8.7381500,     7.7325090,   &
     &        6.1953270,     5.0856920,     4.2547590,     3.6144440,   &
     &        3.1095350,     2.2291660,     1.6746000,     1.0403320,   &
     &        0.7055790,     0.3365800,     0.1951260              /
! REF PtH8  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 78) /     -1.31315249868035 /
      data refh    (3, 78) /      0.16414406233504 /
      data gffq    (3, 78) /      0.10111888298865 /
      data gffh    (3, 78) /     -0.01263986037358 /
      data dftq    (3, 78) /     -0.04335400000000 /
      data dfth    (3, 78) /      0.00543325000000 /
      data pbcq    (3, 78) /     -1.31315249868035 /
      data pbch    (3, 78) /      0.16414406233504 /
      data clsq    (3, 78) /      0.10111888298865 /
      data clsh    (3, 78) /     -0.01263986037358 /
      data hcount  (3, 78) /      8.00000000000000 /
      data ascale  (3, 78) /      1.00000000000000 /
      data refcovcn(3, 78) /      6.46855936294889 /
      data refcn   (3, 78) /      6.66687770578862 /
      data refsys (3, 78) /    1 /
      data alphaiw(:,3, 78) /                                            &
     &       54.9491410,    53.9578470,    51.3088730,    43.7409950,   &
     &       36.2053630,    29.9365010,    24.9624590,    21.0441630,   &
     &       17.9395030,    15.4543750,    13.4423040,    11.7944940,   &
     &        9.2888530,     7.5040460,     6.1891800,     5.1927300,   &
     &        4.4193840,     3.1019380,     2.2955520,     1.3992410,   &
     &        0.9386560,     0.4419430,     0.2547950              /
      data refn(78) / 3 /
! REF Au  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 79) /     -0.00000000000000 /
      data refh    (1, 79) /      0.00000000000000 /
      data gffq    (1, 79) /      0.00000000000000 /
      data gffh    (1, 79) /      0.00000000000000 /
      data dftq    (1, 79) /     -0.00000000000000 /
      data dfth    (1, 79) /      0.00000000000000 /
      data pbcq    (1, 79) /     -0.00000000000000 /
      data pbch    (1, 79) /      0.00000000000000 /
      data clsq    (1, 79) /      0.00000000000000 /
      data clsh    (1, 79) /      0.00000000000000 /
      data hcount  (1, 79) /      0.00000000000000 /
      data ascale  (1, 79) /      1.00000000000000 /
      data refcovcn(1, 79) /      0.00000000000000 /
      data refcn   (1, 79) /      0.00000000000000 /
      data refsys (1, 79) /    1 /
      data alphaiw(:,1, 79) /                                            &
     &       37.7290460,    36.1091840,    32.2722340,    24.0716250,   &
     &       18.3385860,    14.6143630,    12.0774260,    10.2474000,   &
     &        8.8635320,     7.7783310,     6.9031680,     6.1817050,   &
     &        5.0613040,     4.2321700,     3.5957550,     3.0941580,   &
     &        2.6907340,     1.9683670,     1.4994510,     0.9481020,   &
     &        0.6497440,     0.3139430,     0.1830170              /
! REF AuH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 79) /      0.16039939517918 /
      data refh    (2, 79) /     -0.16039939517919 /
      data gffq    (2, 79) /      0.02560952126341 /
      data gffh    (2, 79) /     -0.02560952126341 /
      data dftq    (2, 79) /      0.02534000000000 /
      data dfth    (2, 79) /     -0.02534200000000 /
      data pbcq    (2, 79) /      0.16039939517918 /
      data pbch    (2, 79) /     -0.16039939517919 /
      data clsq    (2, 79) /      0.02560952126341 /
      data clsh    (2, 79) /     -0.02560952126341 /
      data hcount  (2, 79) /      1.00000000000000 /
      data ascale  (2, 79) /      1.00000000000000 /
      data refcovcn(2, 79) /      0.91830179564855 /
      data refcn   (2, 79) /      0.98458933772055 /
      data refsys (2, 79) /    1 /
      data alphaiw(:,2, 79) /                                            &
     &       36.6153320,    35.4187520,    32.5691470,    25.9574740,   &
     &       20.5780280,    16.6720520,    13.8374270,    11.7244450,   &
     &       10.1016410,     8.8215770,     7.7887820,     6.9395760,   &
     &        5.6295900,     4.6707850,     3.9429090,     3.3749190,   &
     &        2.9220340,     2.1203720,     1.6065850,     1.0093190,   &
     &        0.6892520,     0.3316860,     0.1930410              /
      data refn(79) / 2 /
! REF Hg  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 80) /      0.00000000000000 /
      data refh    (1, 80) /      0.00000000000000 /
      data gffq    (1, 80) /      0.00000000000000 /
      data gffh    (1, 80) /      0.00000000000000 /
      data dftq    (1, 80) /      0.00000000000000 /
      data dfth    (1, 80) /      0.00000000000000 /
      data pbcq    (1, 80) /      0.00000000000000 /
      data pbch    (1, 80) /      0.00000000000000 /
      data clsq    (1, 80) /      0.00000000000000 /
      data clsh    (1, 80) /      0.00000000000000 /
      data hcount  (1, 80) /      0.00000000000000 /
      data ascale  (1, 80) /      1.00000000000000 /
      data refcovcn(1, 80) /      0.00000000000000 /
      data refcn   (1, 80) /      0.00000000000000 /
      data refsys (1, 80) /    1 /
      data alphaiw(:,1, 80) /                                            &
     &       37.1668150,    35.9903170,    32.9876470,    25.5237630,   &
     &       19.5407590,    15.4358360,    12.6124980,    10.5949600,   &
     &        9.0927810,     7.9334090,     7.0116660,     6.2609290,   &
     &        5.1108470,     4.2707020,     3.6306640,     3.1280940,   &
     &        2.7244100,     2.0009140,     1.5295470,     0.9722000,   &
     &        0.6686340,     0.3246570,     0.1896630              /
! REF HgH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 80) /     -0.04321502667405 /
      data refh    (2, 80) /      0.02160751333703 /
      data gffq    (2, 80) /      0.11991146919920 /
      data gffh    (2, 80) /     -0.05995573459960 /
      data dftq    (2, 80) /      0.23877800000000 /
      data dfth    (2, 80) /     -0.11938700000000 /
      data pbcq    (2, 80) /     -0.04321502667405 /
      data pbch    (2, 80) /      0.02160751333703 /
      data clsq    (2, 80) /      0.11991146919920 /
      data clsh    (2, 80) /     -0.05995573459960 /
      data hcount  (2, 80) /      2.00000000000000 /
      data ascale  (2, 80) /      1.00000000000000 /
      data refcovcn(2, 80) /      1.89515764632510 /
      data refcn   (2, 80) /      1.98963020776929 /
      data refsys (2, 80) /    1 /
      data alphaiw(:,2, 80) /                                            &
     &       35.5596890,    34.9453750,    33.2600440,    28.2046230,   &
     &       23.0451020,    18.8299000,    15.6024300,    13.1484490,   &
     &       11.2575930,     9.7724990,     8.5831260,     7.6133220,   &
     &        6.1348920,     5.0678290,     4.2663670,     3.6457370,   &
     &        3.1535120,     2.2866750,     1.7331020,     1.0902810,   &
     &        0.7455680,     0.3596280,     0.2095320              /
      data refn(80) / 2 /
! REF Tl  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 81) /     -0.00000000000001 /
      data refh    (1, 81) /      0.00000000000000 /
      data gffq    (1, 81) /      0.00000000000000 /
      data gffh    (1, 81) /      0.00000000000000 /
      data dftq    (1, 81) /     -0.00000000000001 /
      data dfth    (1, 81) /      0.00000000000000 /
      data pbcq    (1, 81) /     -0.00000000000001 /
      data pbch    (1, 81) /      0.00000000000000 /
      data clsq    (1, 81) /      0.00000000000000 /
      data clsh    (1, 81) /      0.00000000000000 /
      data hcount  (1, 81) /      0.00000000000000 /
      data ascale  (1, 81) /      1.00000000000000 /
      data refcovcn(1, 81) /      0.00000000000000 /
      data refcn   (1, 81) /      0.00000000000000 /
      data refsys (1, 81) /    1 /
      data alphaiw(:,1, 81) /                                            &
     &       75.4787320,    66.9797680,    52.7293310,    33.2800020,   &
     &       23.1647510,    17.3598020,    13.7123950,    11.2540670,   &
     &        9.5015210,     8.1942640,     7.1828260,     6.3767320,   &
     &        5.1706100,     4.3089140,     3.6612600,     3.1566110,   &
     &        2.7528300,     2.0300880,     1.5579660,     0.9964200,   &
     &        0.6883510,     0.3365720,     0.1974540              /
! REF TlH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 81) /      0.30915981536221 /
      data refh    (2, 81) /     -0.30915981536221 /
      data gffq    (2, 81) /      0.05732791283824 /
      data gffh    (2, 81) /     -0.05732791283824 /
      data dftq    (2, 81) /     -0.01288900000000 /
      data dfth    (2, 81) /      0.01289000000000 /
      data pbcq    (2, 81) /      0.30915981536221 /
      data pbch    (2, 81) /     -0.30915981536221 /
      data clsq    (2, 81) /      0.05732791283824 /
      data clsh    (2, 81) /     -0.05732791283824 /
      data hcount  (2, 81) /      1.00000000000000 /
      data ascale  (2, 81) /      1.00000000000000 /
      data refcovcn(2, 81) /      0.83218042800594 /
      data refcn   (2, 81) /      0.92674492705574 /
      data refsys (2, 81) /    1 /
      data alphaiw(:,2, 81) /                                            &
     &       73.7909520,    67.2077030,    55.1633950,    36.6818870,   &
     &       26.1091350,    19.7299200,    15.6034900,    12.7753400,   &
     &       10.7414800,     9.2191530,     8.0412980,     7.1046070,   &
     &        5.7107080,     4.7240350,     3.9895440,     3.4223730,   &
     &        2.9722160,     2.1752900,     1.6611010,     1.0561290,   &
     &        0.7272340,     0.3542350,     0.2074800              /
! REF TlH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 81) /      0.08292819331732 /
      data refh    (3, 81) /     -0.04146409665866 /
      data gffq    (3, 81) /      0.10187349213041 /
      data gffh    (3, 81) /     -0.05093674606521 /
      data dftq    (3, 81) /      0.22888700000000 /
      data dfth    (3, 81) /     -0.11444800000000 /
      data pbcq    (3, 81) /      0.08292819331732 /
      data pbch    (3, 81) /     -0.04146409665866 /
      data clsq    (3, 81) /      0.10187349213041 /
      data clsh    (3, 81) /     -0.05093674606521 /
      data hcount  (3, 81) /      2.00000000000000 /
      data ascale  (3, 81) /      1.00000000000000 /
      data refcovcn(3, 81) /      1.73451304607259 /
      data refcn   (3, 81) /      1.93019298965987 /
      data refsys (3, 81) /    1 /
      data alphaiw(:,3, 81) /                                            &
     &       51.2159910,    49.0618590,    44.5281440,    34.5954290,   &
     &       26.6152220,    20.8897950,    16.8343740,    13.9090070,   &
     &       11.7406120,    10.0876440,     8.7945760,     7.7596980,   &
     &        6.2135910,     5.1188320,     4.3061810,     3.6812160,   &
     &        3.1873790,     2.3191740,     1.7638260,     1.1158640,   &
     &        0.7661990,     0.3719620,     0.2175450              /
! REF TlH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 81) /     -0.09717467133516 /
      data refh    (4, 81) /      0.03239155711172 /
      data gffq    (4, 81) /      0.14012325640618 /
      data gffh    (4, 81) /     -0.04670775213539 /
      data dftq    (4, 81) /      0.32497300000000 /
      data dfth    (4, 81) /     -0.10832333333333 /
      data pbcq    (4, 81) /     -0.09717467133516 /
      data pbch    (4, 81) /      0.03239155711172 /
      data clsq    (4, 81) /      0.14012325640618 /
      data clsh    (4, 81) /     -0.04670775213539 /
      data hcount  (4, 81) /      3.00000000000000 /
      data ascale  (4, 81) /      1.00000000000000 /
      data refcovcn(4, 81) /      2.64455909521743 /
      data refcn   (4, 81) /      2.94201332191403 /
      data refsys (4, 81) /    1 /
      data alphaiw(:,4, 81) /                                            &
     &       44.4232940,    43.5695950,    41.2468990,    34.4223640,   &
     &       27.6300950,    22.1919640,    18.1026400,    15.0481770,   &
     &       12.7356250,    10.9495660,     9.5411710,     8.4086990,   &
     &        6.7118360,     5.5101390,     4.6201450,     3.9379650,   &
     &        3.4008700,     2.4620390,     1.8658870,     1.1752790,   &
     &        0.8049870,     0.3896270,     0.2275810              /
      data refn(81) / 4 /
! REF Pb  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 82) /     -0.00000000000001 /
      data refh    (1, 82) /      0.00000000000000 /
      data gffq    (1, 82) /      0.00000000000000 /
      data gffh    (1, 82) /      0.00000000000000 /
      data dftq    (1, 82) /     -0.00000000000001 /
      data dfth    (1, 82) /      0.00000000000000 /
      data pbcq    (1, 82) /     -0.00000000000001 /
      data pbch    (1, 82) /      0.00000000000000 /
      data clsq    (1, 82) /      0.00000000000000 /
      data clsh    (1, 82) /      0.00000000000000 /
      data hcount  (1, 82) /      0.00000000000000 /
      data ascale  (1, 82) /      1.00000000000000 /
      data refcovcn(1, 82) /      0.00000000000000 /
      data refcn   (1, 82) /      0.00000000000000 /
      data refsys (1, 82) /    1 /
      data alphaiw(:,1, 82) /                                            &
     &       63.2905510,    59.5286430,    51.2607860,    35.4025850,   &
     &       25.1394190,    18.7947900,    14.7040930,    11.9322080,   &
     &        9.9660590,     8.5145470,     7.4056250,     6.5334430,   &
     &        5.2518040,     4.3552580,     3.6919830,     3.1808980,   &
     &        2.7750050,     2.0530120,     1.5823440,     1.0201520,   &
     &        0.7090500,     0.3497720,     0.2060120              /
! REF PbH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 82) /      0.25127061720020 /
      data refh    (2, 82) /     -0.25127061720020 /
      data gffq    (2, 82) /      0.11449566751294 /
      data gffh    (2, 82) /     -0.11449566751294 /
      data dftq    (2, 82) /      0.15350100000000 /
      data dfth    (2, 82) /     -0.15350000000000 /
      data pbcq    (2, 82) /      0.25127061720020 /
      data pbch    (2, 82) /     -0.25127061720020 /
      data clsq    (2, 82) /      0.11449566751294 /
      data clsh    (2, 82) /     -0.11449566751294 /
      data hcount  (2, 82) /      1.00000000000000 /
      data ascale  (2, 82) /      1.00000000000000 /
      data refcovcn(2, 82) /      0.90267202371440 /
      data refcn   (2, 82) /      0.93830467603587 /
      data refsys (2, 82) /    1 /
      data alphaiw(:,2, 82) /                                            &
     &       57.4725650,    54.8466790,    48.8575900,    36.1749940,   &
     &       26.8405620,    20.5425950,    16.2594910,    13.2605030,   &
     &       11.0893760,     9.4661890,     8.2168000,     7.2301920,   &
     &        5.7780700,     4.7643580,     4.0179560,     3.4461300,   &
     &        2.9946910,     2.1989640,     1.6860470,     1.0800310,   &
     &        0.7479170,     0.3673300,     0.2159550              /
! REF PbH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 82) /      0.36893958477328 /
      data refh    (3, 82) /     -0.18446979238664 /
      data gffq    (3, 82) /      0.16758459323190 /
      data gffh    (3, 82) /     -0.08379229661595 /
      data dftq    (3, 82) /      0.25734000000000 /
      data dfth    (3, 82) /     -0.12867100000000 /
      data pbcq    (3, 82) /      0.36893958477328 /
      data pbch    (3, 82) /     -0.18446979238664 /
      data clsq    (3, 82) /      0.16758459323190 /
      data clsh    (3, 82) /     -0.08379229661595 /
      data hcount  (3, 82) /      2.00000000000000 /
      data ascale  (3, 82) /      1.00000000000000 /
      data refcovcn(3, 82) /      1.86326667138745 /
      data refcn   (3, 82) /      1.93560176827475 /
      data refsys (3, 82) /    1 /
      data alphaiw(:,3, 82) /                                            &
     &       53.0414450,    51.0751360,    46.8366890,    36.7990540,   &
     &       28.3107680,    22.1045460,    17.6826350,    14.4967630,   &
     &       12.1481600,    10.3717920,     8.9944640,     7.9020540,   &
     &        6.2898170,     5.1644070,     4.3379580,     3.7072310,   &
     &        3.2113990,     2.3434100,     1.7888720,     1.1395320,   &
     &        0.7865880,     0.3848350,     0.2258800              /
! REF PbH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 82) /      0.20035516428565 /
      data refh    (4, 82) /     -0.06678505476189 /
      data gffq    (4, 82) /      0.18265663815354 /
      data gffh    (4, 82) /     -0.06088554605118 /
      data dftq    (4, 82) /      0.21484200000000 /
      data dfth    (4, 82) /     -0.07161600000000 /
      data pbcq    (4, 82) /      0.20035516428565 /
      data pbch    (4, 82) /     -0.06678505476189 /
      data clsq    (4, 82) /      0.18265663815354 /
      data clsh    (4, 82) /     -0.06088554605118 /
      data hcount  (4, 82) /      3.00000000000000 /
      data ascale  (4, 82) /      1.00000000000000 /
      data refcovcn(4, 82) /      2.79951773292937 /
      data refcn   (4, 82) /      2.90809757363721 /
      data refsys (4, 82) /    1 /
      data alphaiw(:,4, 82) /                                            &
     &       53.1115280,    51.7198390,    48.1733620,    38.8959490,   &
     &       30.4802980,    24.0395110,    19.3203190,    15.8625500,   &
     &       13.2876830,    11.3287250,     9.8050600,     8.5950040,   &
     &        6.8096590,     5.5666540,     4.6574470,     3.9666200,   &
     &        3.4259370,     2.4857500,     1.8900620,     1.1981450,   &
     &        0.8247670,     0.4021920,     0.2357430              /
! REF PbH4  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (5, 82) /      0.01348187443740 /
      data refh    (5, 82) /     -0.00337046860935 /
      data gffq    (5, 82) /      0.17825662719618 /
      data gffh    (5, 82) /     -0.04456415679904 /
      data dftq    (5, 82) /      0.25957200000000 /
      data dfth    (5, 82) /     -0.06489175000000 /
      data pbcq    (5, 82) /      0.01348187443740 /
      data pbch    (5, 82) /     -0.00337046860935 /
      data clsq    (5, 82) /      0.17825662719618 /
      data clsh    (5, 82) /     -0.04456415679904 /
      data hcount  (5, 82) /      4.00000000000000 /
      data ascale  (5, 82) /      1.00000000000000 /
      data refcovcn(5, 82) /      3.76444392234350 /
      data refcn   (5, 82) /      3.90982050474815 /
      data refsys (5, 82) /    1 /
      data alphaiw(:,5, 82) /                                            &
     &       50.0879780,    49.2042630,    46.7719060,    39.3982430,   &
     &       31.7542100,    25.4539200,    20.6426050,    17.0297710,   &
     &       14.2980180,    12.1992850,    10.5566110,     9.2468670,   &
     &        7.3088260,     5.9581810,     4.9713460,     4.2231630,   &
     &        3.6391300,     2.6281690,     1.9916070,     1.2570530,   &
     &        0.8631290,     0.4196110,     0.2456340              /
      data refn(82) / 5 /
! REF Bi  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 83) /     -0.00000000000000 /
      data refh    (1, 83) /      0.00000000000000 /
      data gffq    (1, 83) /      0.00000000000000 /
      data gffh    (1, 83) /      0.00000000000000 /
      data dftq    (1, 83) /     -0.00000000000000 /
      data dfth    (1, 83) /      0.00000000000000 /
      data pbcq    (1, 83) /     -0.00000000000000 /
      data pbch    (1, 83) /      0.00000000000000 /
      data clsq    (1, 83) /      0.00000000000000 /
      data clsh    (1, 83) /      0.00000000000000 /
      data hcount  (1, 83) /      0.00000000000000 /
      data ascale  (1, 83) /      1.00000000000000 /
      data refcovcn(1, 83) /      0.00000000000000 /
      data refcn   (1, 83) /      0.00000000000000 /
      data refsys (1, 83) /    1 /
      data alphaiw(:,1, 83) /                                            &
     &       51.1916750,    49.4069930,    44.9458450,    34.1505430,   &
     &       25.5045870,    19.5073500,    15.3898030,    12.4998210,   &
     &       10.4110930,     8.8561170,     7.6660440,     6.7322080,   &
     &        5.3700990,     4.4292980,     3.7418080,     3.2175040,   &
     &        2.8044220,     2.0757420,     1.6033620,     1.0390450,   &
     &        0.7253430,     0.3603050,     0.2129720              /
! REF BiH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 83) /      0.16648567067772 /
      data refh    (2, 83) /     -0.16648567067772 /
      data gffq    (2, 83) /      0.04276095694715 /
      data gffh    (2, 83) /     -0.04276095694715 /
      data dftq    (2, 83) /      0.08093600000000 /
      data dfth    (2, 83) /     -0.08093500000000 /
      data pbcq    (2, 83) /      0.16648567067772 /
      data pbch    (2, 83) /     -0.16648567067772 /
      data clsq    (2, 83) /      0.04276095694715 /
      data clsh    (2, 83) /     -0.04276095694715 /
      data hcount  (2, 83) /      1.00000000000000 /
      data ascale  (2, 83) /      1.00000000000000 /
      data refcovcn(2, 83) /      0.93840398774753 /
      data refcn   (2, 83) /      0.98198108329616 /
      data refsys (2, 83) /    1 /
      data alphaiw(:,2, 83) /                                            &
     &       51.6147800,    50.0629560,    46.1204110,    36.1339090,   &
     &       27.6118910,    21.4077340,    17.0101490,    13.8592580,   &
     &       11.5510200,     9.8174290,     8.4832410,     7.4329030,   &
     &        5.8982610,     4.8394220,     4.0683880,     3.4831190,   &
     &        3.0243540,     2.2217570,     1.7070420,     1.0988490,   &
     &        0.7641350,     0.3778150,     0.2228850              /
! REF BiH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 83) /      0.27582968130918 /
      data refh    (3, 83) /     -0.13791484065459 /
      data gffq    (3, 83) /      0.06545183973370 /
      data gffh    (3, 83) /     -0.03272591986685 /
      data dftq    (3, 83) /      0.14715900000000 /
      data dfth    (3, 83) /     -0.07358900000000 /
      data pbcq    (3, 83) /      0.27582968130918 /
      data pbch    (3, 83) /     -0.13791484065459 /
      data clsq    (3, 83) /      0.06545183973370 /
      data clsh    (3, 83) /     -0.03272591986685 /
      data hcount  (3, 83) /      2.00000000000000 /
      data ascale  (3, 83) /      1.00000000000000 /
      data refcovcn(3, 83) /      1.87829610127455 /
      data refcn   (3, 83) /      1.96550673996239 /
      data refsys (3, 83) /    1 /
      data alphaiw(:,3, 83) /                                            &
     &       51.7479250,    50.4406230,    47.0464190,    37.9441110,   &
     &       29.6097990,    23.2406220,    18.5881070,    15.1912320,   &
     &       12.6725630,    10.7660510,     9.2914280,     8.1270340,   &
     &        6.4226970,     5.2472620,     4.3934730,     3.7477030,   &
     &        3.2435420,     2.3673900,     1.8104910,     1.1585430,   &
     &        0.8028630,     0.3953020,     0.2327880              /
! REF BiH3  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (4, 83) /      0.35078718869265 /
      data refh    (4, 83) /     -0.11692906289755 /
      data gffq    (4, 83) /      0.07662886467999 /
      data gffh    (4, 83) /     -0.02554295489333 /
      data dftq    (4, 83) /      0.19820500000000 /
      data dfth    (4, 83) /     -0.06606666666667 /
      data pbcq    (4, 83) /      0.35078718869265 /
      data pbch    (4, 83) /     -0.11692906289755 /
      data clsq    (4, 83) /      0.07662886467999 /
      data clsh    (4, 83) /     -0.02554295489333 /
      data hcount  (4, 83) /      3.00000000000000 /
      data ascale  (4, 83) /      1.00000000000000 /
      data refcovcn(4, 83) /      2.81907131341312 /
      data refcn   (4, 83) /      2.94995150877077 /
      data refsys (4, 83) /    1 /
      data alphaiw(:,4, 83) /                                            &
     &       51.5178550,    50.4932930,    47.7156380,    39.5948620,   &
     &       31.5084490,    25.0123180,    20.1276560,    16.4983230,   &
     &       13.7774350,    11.7031450,    10.0914150,     8.8151820,   &
     &        6.9437270,     5.6530110,     4.7171930,     4.0113480,   &
     &        3.4620540,     2.5126730,     1.9137260,     1.2181320,   &
     &        0.8415320,     0.4127710,     0.2426840              /
      data refn(83) / 4 /
! REF Po  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 84) /      0.00000000000001 /
      data refh    (1, 84) /      0.00000000000000 /
      data gffq    (1, 84) /      0.00000000000000 /
      data gffh    (1, 84) /      0.00000000000000 /
      data dftq    (1, 84) /      0.00000000000001 /
      data dfth    (1, 84) /      0.00000000000000 /
      data pbcq    (1, 84) /      0.00000000000001 /
      data pbch    (1, 84) /      0.00000000000000 /
      data clsq    (1, 84) /      0.00000000000000 /
      data clsh    (1, 84) /      0.00000000000000 /
      data hcount  (1, 84) /      0.00000000000000 /
      data ascale  (1, 84) /      1.00000000000000 /
      data refcovcn(1, 84) /      0.00000000000000 /
      data refcn   (1, 84) /      0.00000000000000 /
      data refsys (1, 84) /    1 /
      data alphaiw(:,1, 84) /                                            &
     &       45.7354800,    44.5177550,    41.3554830,    32.9793560,   &
     &       25.5092680,    19.9242900,    15.8977680,    12.9790260,   &
     &       10.8242560,     9.1984520,     7.9445240,     6.9570500,   &
     &        5.5167450,     4.5271540,     3.8097850,     3.2672340,   &
     &        2.8429600,     2.1014180,     1.6245240,     1.0563850,   &
     &        0.7399150,     0.3695680,     0.2190670              /
! REF PoH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 84) /      0.13640050133695 /
      data refh    (2, 84) /     -0.13640050133693 /
      data gffq    (2, 84) /     -0.04479748091835 /
      data gffh    (2, 84) /      0.04479748091835 /
      data dftq    (2, 84) /      0.01268700000000 /
      data dfth    (2, 84) /     -0.01268500000000 /
      data pbcq    (2, 84) /      0.13640050133695 /
      data pbch    (2, 84) /     -0.13640050133693 /
      data clsq    (2, 84) /     -0.04479748091835 /
      data clsh    (2, 84) /      0.04479748091835 /
      data hcount  (2, 84) /      1.00000000000000 /
      data ascale  (2, 84) /      1.00000000000000 /
      data refcovcn(2, 84) /      0.93512916979697 /
      data refcn   (2, 84) /      0.98152738589119 /
      data refsys (2, 84) /    1 /
      data alphaiw(:,2, 84) /                                            &
     &       47.9831520,    46.8085170,    43.7444240,    35.4613210,   &
     &       27.8088110,    21.9082420,    17.5604940,    14.3629380,   &
     &       11.9797160,    10.1702660,     8.7691240,     7.6631150,   &
     &        6.0479100,     4.9390680,     4.1374920,     3.5335950,   &
     &        3.0634060,     2.2476620,     1.7283170,     1.1162240,   &
     &        0.7787240,     0.3870890,     0.2289900              /
! REF PoH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (3, 84) /      0.28152411891177 /
      data refh    (3, 84) /     -0.14076205945589 /
      data gffq    (3, 84) /     -0.02201995669726 /
      data gffh    (3, 84) /      0.01100997834863 /
      data dftq    (3, 84) /      0.01564400000000 /
      data dfth    (3, 84) /     -0.00783200000000 /
      data pbcq    (3, 84) /      0.28152411891177 /
      data pbch    (3, 84) /     -0.14076205945589 /
      data clsq    (3, 84) /     -0.02201995669726 /
      data clsh    (3, 84) /      0.01100997834863 /
      data hcount  (3, 84) /      2.00000000000000 /
      data ascale  (3, 84) /      1.00000000000000 /
      data refcovcn(3, 84) /      1.87110482058901 /
      data refcn   (3, 84) /      1.96393490432407 /
      data refsys (3, 84) /    1 /
      data alphaiw(:,3, 84) /                                            &
     &       49.9757880,    48.8536140,    45.9097740,    37.7785020,   &
     &       29.9993350,    23.8231110,    19.1794330,    15.7185060,   &
     &       13.1162960,    11.1291240,     9.5845740,     8.3625420,   &
     &        6.5753180,     5.3486700,     4.4636720,     3.7988870,   &
     &        3.2830670,     2.3934820,     1.8318420,     1.1759270,   &
     &        0.8174500,     0.4045760,     0.2388960              /
      data refn(84) / 3 /
! REF At  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 85) /      0.00000000000001 /
      data refh    (1, 85) /      0.00000000000000 /
      data gffq    (1, 85) /      0.00000000000000 /
      data gffh    (1, 85) /      0.00000000000000 /
      data dftq    (1, 85) /      0.00000000000001 /
      data dfth    (1, 85) /      0.00000000000000 /
      data pbcq    (1, 85) /      0.00000000000001 /
      data pbch    (1, 85) /      0.00000000000000 /
      data clsq    (1, 85) /      0.00000000000000 /
      data clsh    (1, 85) /      0.00000000000000 /
      data hcount  (1, 85) /      0.00000000000000 /
      data ascale  (1, 85) /      1.00000000000000 /
      data refcovcn(1, 85) /      0.00000000000000 /
      data refcn   (1, 85) /      0.00000000000000 /
      data refsys (1, 85) /    1 /
      data alphaiw(:,1, 85) /                                            &
     &       39.1638670,    38.4250150,    36.4213580,    30.5411780,   &
     &       24.6134160,    19.7657890,    16.0524090,    13.2471470,   &
     &       11.1156700,     9.4745710,     8.1909470,     7.1705270,   &
     &        5.6711490,     4.6378720,     3.8904420,     3.3277200,   &
     &        2.8899970,     2.1310810,     1.6471780,     1.0734420,   &
     &        0.7539160,     0.3784910,     0.2250150              /
! REF AtH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (2, 85) /      0.03800713225652 /
      data refh    (2, 85) /     -0.03800713225653 /
      data gffq    (2, 85) /     -0.07596582020292 /
      data gffh    (2, 85) /      0.07596582020292 /
      data dftq    (2, 85) /     -0.04863100000000 /
      data dfth    (2, 85) /      0.04863400000000 /
      data pbcq    (2, 85) /      0.03800713225652 /
      data pbch    (2, 85) /     -0.03800713225653 /
      data clsq    (2, 85) /     -0.07596582020292 /
      data clsh    (2, 85) /      0.07596582020292 /
      data hcount  (2, 85) /      1.00000000000000 /
      data ascale  (2, 85) /      1.00000000000000 /
      data refcovcn(2, 85) /      0.97711087656722 /
      data refcn   (2, 85) /      0.99539313449513 /
      data refsys (2, 85) /    1 /
      data alphaiw(:,2, 85) /                                            &
     &       42.3026280,    41.5366110,    39.4596880,    33.3254640,   &
     &       27.0380510,    21.8068890,    17.7463530,    14.6509070,   &
     &       12.2850030,    10.4566080,     9.0232990,     7.8825660,   &
     &        6.2059600,     5.0520660,     4.2196050,     3.5950280,   &
     &        3.1110670,     2.2775460,     1.7510350,     1.1332590,   &
     &        0.7926970,     0.3959980,     0.2349320              /
      data refn(85) / 2 /
! REF Rn  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1, 86) /      0.00000000000000 /
      data refh    (1, 86) /      0.00000000000000 /
      data gffq    (1, 86) /      0.00000000000000 /
      data gffh    (1, 86) /      0.00000000000000 /
      data dftq    (1, 86) /      0.00000000000000 /
      data dfth    (1, 86) /      0.00000000000000 /
      data pbcq    (1, 86) /      0.00000000000000 /
      data pbch    (1, 86) /      0.00000000000000 /
      data clsq    (1, 86) /      0.00000000000000 /
      data clsh    (1, 86) /      0.00000000000000 /
      data hcount  (1, 86) /      0.00000000000000 /
      data ascale  (1, 86) /      1.00000000000000 /
      data refcovcn(1, 86) /      0.00000000000000 /
      data refcn   (1, 86) /      0.00000000000000 /
      data refsys (1, 86) /    1 /
      data alphaiw(:,1, 86) /                                            &
     &       33.6514050,    33.1852420,    31.8852830,    27.7786920,   &
     &       23.2154680,    19.1736050,    15.8877090,    13.2945880,   &
     &       11.2595530,     9.6544200,     8.3760900,     7.3462510,   &
     &        5.8137240,     4.7476360,     3.9742240,     3.3924070,   &
     &        2.9410550,     2.1630540,     1.6707900,     1.0904110,   &
     &        0.7676850,     0.3873300,     0.2309680              /
      data refn(86) / 1 /
! REF Cn  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,112) /      0.00000000000000 /
      data refh    (1,112) /      0.00000000000000 /
      data gffq    (1,112) /      0.00000000000000 /
      data gffh    (1,112) /      0.00000000000000 /
      data dftq    (1,112) /      0.00000000000000 /
      data dfth    (1,112) /      0.00000000000000 /
      data pbcq    (1,112) /      0.00000000000000 /
      data pbch    (1,112) /      0.00000000000000 /
      data clsq    (1,112) /      0.00000000000000 /
      data clsh    (1,112) /      0.00000000000000 /
      data hcount  (1,112) /      0.00000000000000 /
      data ascale  (1,112) /      1.00000000000000 /
      data refcovcn(1,112) /      0.00000000000000 /
      data refcn   (1,112) /      0.00000000000000 /
      data refsys (1,112) /    1 /
      data alphaiw(:,1,112) /                                            &
     &       28.9658506,    28.5229043,    27.3194441,    23.7497041,   &
     &       20.0600679,    16.9382662,    14.4456995,    12.4709213,   &
     &       10.8915816,     9.6105637,     8.5564757,     7.6775158,   &
     &        6.3032570,     5.2860251,     4.5087413,     3.8995856,   &
     &        3.4123111,     2.5460363,     1.9872976,     1.3293939,   &
     &        0.9663593,     0.5321666,     0.3423450              /
      data refn(112) / 1 /
! REF NhH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,113) /      0.00000000000000 /
      data refh    (1,113) /      0.00000000000000 /
      data gffq    (1,113) /      0.00000000000000 /
      data gffh    (1,113) /      0.00000000000000 /
      data dftq    (1,113) /      0.00000000000000 /
      data dfth    (1,113) /      0.00000000000000 /
      data pbcq    (1,113) /      0.00000000000000 /
      data pbch    (1,113) /      0.00000000000000 /
      data clsq    (1,113) /      0.00000000000000 /
      data clsh    (1,113) /      0.00000000000000 /
      data hcount  (1,113) /      1.00000000000000 /
      data ascale  (1,113) /      1.00000000000000 /
      data refcovcn(1,113) /      0.94277714762458 /
      data refcn   (1,113) /      0.94277714762458 /
      data refsys (1,113) /    1 /
      data alphaiw(:,1,113) /                                            &
     &       36.8515202,    35.9314075,    33.7296086,    28.2311084,   &
     &       23.2301521,    19.2714758,    16.2269059,    13.8738534,   &
     &       12.0270465,    10.5514261,     9.3517015,     8.3607091,   &
     &        6.8266410,     5.7014944,     4.8468778,     4.1800460,   &
     &        3.6485283,     2.7081324,     2.1050561,     1.3991594,   &
     &        1.0122747,     0.5535296,     0.3548537              /
      data refn(113) / 1 /
! REF Fl  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,114) /      0.00000000000000 /
      data refh    (1,114) /      0.00000000000000 /
      data gffq    (1,114) /      0.00000000000000 /
      data gffh    (1,114) /      0.00000000000000 /
      data dftq    (1,114) /      0.00000000000000 /
      data dfth    (1,114) /      0.00000000000000 /
      data pbcq    (1,114) /      0.00000000000000 /
      data pbch    (1,114) /      0.00000000000000 /
      data clsq    (1,114) /      0.00000000000000 /
      data clsh    (1,114) /      0.00000000000000 /
      data hcount  (1,114) /      0.00000000000000 /
      data ascale  (1,114) /      1.00000000000000 /
      data refcovcn(1,114) /      0.00000000000000 /
      data refcn   (1,114) /      0.00000000000000 /
      data refsys (1,114) /    1 /
      data alphaiw(:,1,114) /                                            &
     &       31.0177261,    30.3409187,    28.5968922,    24.0264841,   &
     &       19.8927260,    16.6470264,    14.1460801,    12.2005462,   &
     &       10.6619593,     9.4233104,     8.4088155,     7.5647344,   &
     &        6.2444458,     5.2627485,     4.5076687,     3.9118848,   &
     &        3.4323326,     2.5724899,     2.0125562,     1.3479270,   &
     &        0.9794339,     0.5389514,     0.3469517              /
      data refn(114) / 1 /
! REF LvH2  - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,116) /      0.00000000000000 /
      data refh    (1,116) /      0.00000000000000 /
      data gffq    (1,116) /      0.00000000000000 /
      data gffh    (1,116) /      0.00000000000000 /
      data dftq    (1,116) /      0.00000000000000 /
      data dfth    (1,116) /      0.00000000000000 /
      data pbcq    (1,116) /      0.00000000000000 /
      data pbch    (1,116) /      0.00000000000000 /
      data clsq    (1,116) /      0.00000000000000 /
      data clsh    (1,116) /      0.00000000000000 /
      data hcount  (1,116) /      2.00000000000000 /
      data ascale  (1,116) /      1.00000000000000 /
      data refcovcn(1,116) /      1.98131399263162 /
      data refcn   (1,116) /      1.98131399263162 /
      data refsys (1,116) /    1 /
      data alphaiw(:,1,116) /                                            &
     &       62.5965347,    59.9793469,    54.2098284,    41.6476762,   &
     &       31.8504866,    24.9639388,    20.1291251,    16.6500840,   &
     &       14.0715476,    12.1054557,    10.5676443,     9.3376437,   &
     &        7.5027755,     6.2067008,     5.2468060,     4.5100150,   &
     &        3.9287041,     2.9084035,     2.2561760,     1.4921393,   &
     &        1.0737727,     0.5817618,     0.3715195              /
      data refn(115) / 1 /
! REF McH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,115) /      0.00000000000000 /
      data refh    (1,115) /      0.00000000000000 /
      data gffq    (1,115) /      0.00000000000000 /
      data gffh    (1,115) /      0.00000000000000 /
      data dftq    (1,115) /      0.00000000000000 /
      data dfth    (1,115) /      0.00000000000000 /
      data pbcq    (1,115) /      0.00000000000000 /
      data pbch    (1,115) /      0.00000000000000 /
      data clsq    (1,115) /      0.00000000000000 /
      data clsh    (1,115) /      0.00000000000000 /
      data hcount  (1,115) /      1.00000000000000 /
      data ascale  (1,115) /      1.00000000000000 /
      data refcovcn(1,115) /      0.91220333076895 /
      data refcn   (1,115) /      0.91220333076895 /
      data refsys (1,115) /    1 /
      data alphaiw(:,1,115) /                                            &
     &       50.5879876,    48.5224886,    43.8104441,    33.6795593,   &
     &       26.0680976,    20.7866748,    17.0594839,    14.3406936,   &
     &       12.2916388,    10.7020689,     9.4379170,     8.4110146,   &
     &        6.8482249,     5.7186423,     4.8669543,     4.2042872,   &
     &        3.6761256,     2.7387147,     2.1335072,     1.4195987,   &
     &        1.0262708,     0.5601697,     0.3590984              /
      data refn(116) / 1 /
! REF TsH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,117) /      0.00000000000000 /
      data refh    (1,117) /      0.00000000000000 /
      data gffq    (1,117) /      0.00000000000000 /
      data gffh    (1,117) /      0.00000000000000 /
      data dftq    (1,117) /      0.00000000000000 /
      data dfth    (1,117) /      0.00000000000000 /
      data pbcq    (1,117) /      0.00000000000000 /
      data pbch    (1,117) /      0.00000000000000 /
      data clsq    (1,117) /      0.00000000000000 /
      data clsh    (1,117) /      0.00000000000000 /
      data hcount  (1,117) /      1.00000000000000 /
      data ascale  (1,117) /      1.00000000000000 /
      data refcovcn(1,117) /      0.97277918745352 /
      data refcn   (1,117) /      0.97277918745352 /
      data refsys (1,117) /    1 /
      data alphaiw(:,1,117) /                                            &
     &       68.0864127,    64.1264282,    56.6470176,    42.0637390,   &
     &       31.4475652,    24.2894637,    19.3977301,    15.9410604,   &
     &       13.4120039,    11.5024670,    10.0205855,     8.8430108,   &
     &        7.0995079,     5.8772976,     4.9763464,     4.2864060,   &
     &        3.7423450,     2.7856521,     2.1708261,     1.4447260,   &
     &        1.0436089,     0.5684047,     0.3641795              /
      data refn(117) / 1 /
! REF Og  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1901
      data refq    (1,118) /      0.00000000000000 /
      data refh    (1,118) /      0.00000000000000 /
      data gffq    (1,118) /      0.00000000000000 /
      data gffh    (1,118) /      0.00000000000000 /
      data dftq    (1,118) /      0.00000000000000 /
      data dfth    (1,118) /      0.00000000000000 /
      data pbcq    (1,118) /      0.00000000000000 /
      data pbch    (1,118) /      0.00000000000000 /
      data clsq    (1,118) /      0.00000000000000 /
      data clsh    (1,118) /      0.00000000000000 /
      data hcount  (1,118) /      0.00000000000000 /
      data ascale  (1,118) /      1.00000000000000 /
      data refcovcn(1,118) /      0.00000000000000 /
      data refcn   (1,118) /      0.00000000000000 /
      data refsys (1,118) /    1 /
      data alphaiw(:,1,118) /                                            &
     &       60.1915989,    57.8350021,    52.2126738,    39.5649630,   &
     &       29.8330516,    23.1060271,    18.4549609,    15.1539330,   &
     &       12.7366393,    10.9128902,     9.4998323,     8.3792180,   &
     &        6.7254432,     5.5711554,     4.7232296,     4.0753582,   &
     &        3.5649854,     2.6668767,     2.0874183,     1.3980570,   &
     &        1.0139007,     0.5552450,     0.3569580              /
      data refn(118) / 1 /
